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ISOTOPE  RATIO  MASS  SPECTROMETRY  DATA  PROCESSING 
SOFTWARE:  MULTIVARIATE  STATISTICAL  METHODS  FOR 
HYDROCARBON  SOURCE  IDENTIFICATION  AND  COMPARISON 

INTRODUCTION 

Oil  spills  present  a  significant  problem  for  domestic  Naval  operations.  Annual  cleanup 
costs  approach  $10M  with  nearly  1,600  spills  totaling  255,000  gallons  reported  from 
FY97  through  FY03.  With  these  spills,  the  Navy  is  in  violation  of  the  Clean  Water  Act, 
which  prohibits  discharge  of  oil  in  amounts  sufficient  to  produce  a  visible  sheen  on  the 
water  surface.  Although  the  Navy  is  exempt  from  fines  and  penalties  from  oil  spills, 
environmental  ramifications  have  attracted  high-level  Congressional,  State,  and  local 
concern.  States  with  large  Naval  fleet  presence  such  as  California,  Washington,  Virginia 
and  Texas  have  shown  particular  interest  in  Naval  fuel  spills.  The  lack  of  measurable 
progress  in  reducing  the  number  and  volume  of  spills  may  impact  the  Navy’s  Public 
Vessel  Exemption,  resulting  in  fines,  penalties  and  remediation  costs  that  would  total  in 
the  millions  annually. 

In  March  1999,  the  Naval  Sea  Systems  Command,  as  directed  by  the  CNO,  prepared  a 
Shipboard  Oil  Spill  Prevention  Initiative  plan.  The  plan  was  based  on  actual  NAVSEA 
Shipboard  analysis  and  the  results  of  a  workshop  held  in  Norfolk,  VA  in  August  1999. 
The  initial  plan  was  aimed  at  reducing  or  eliminating  fuel  spills  by  applying  lessons  from 
known  causes.  To  this  end,  the  FUEL  ID  initiative  was  created  to  provide  identification 
of  spill  versus  non-spill  oil  signatures  in  the  environment.  Compound-specific  carbon 
isotope  analysis  (CSIA)  coupled  to  multivariate  statistics  was  identified  as  a  robust  means 
of  determining  similarity  between  unknown  spill  oils  and  those  from  Naval  sources. 

Frequently  multiple  sources  exist  and  complex  mixing  and  transport  result  in  uncertain 
assessment  and  organization  of  remedial  action.  A  number  of  fingerprinting  approaches 
have  been  developed  to  determine  source  and  fate  of  hydrocarbons,  the  most  common  of 
which  is  to  determine  the  relative  concentrations  of  individual  hydrocarbons  in  a  mixture. 
The  major  drawback  of  this  approach  is  that  it  does  not  take  into  account  weathering 
activities  (i.e.  biological,  physical)  which  might  preferentially  remove  certain 
components  of  the  mixture.  Stable  isotope  analyses  of  elements  provides  the  ability  to 
identify  the  sources  and  fate  in  complex  mixtures  of  environmental  organic  matter  by 
targeting  a  concentration-independent  chemical  property  of  each  contaminant  in  a 
mixture.  Isotope  analysis  of  carbon,  nitrogen  and  sulfur  pools  has  provided  a  more 
thorough  understanding  of  organic  matter  sources  and  cycling  in  a  variety  of  ecosystems 
(Peterson  and  Fry,  1987;  Fry,  1986;  Coffin  and  Cifuentes,  1999).  Further  development  of 
isotope  ratio  methodology  has  provided  the  ability  to  identify  cycling  of  carbon  at  a 
molecular  level  (Coffin  et.  al.  1990;  Silfer  et  al.  1991;  Meier-Augenstein,  1995;  Hullar  et 
al.,  1 996)  allowing  identification  of  specific  microbial  roles  in  the  biogeochemical 
cycling  of  carbon  and  nitrogen.  In  addition,  this  approach  has  provided  the  capacity  to 
use  stable  carbon  isotope  analysis  (813C)  to  assist  in  development  and  interpretation  of 
bioremediation  strategies  for  ecosystems  that  are  contaminated  with  organic  chemicals 
(Aggarwal  and  Hinchee,  1991;  Trust  et  al.,  1995;  Coffin  et  al.,  1997). 

The  recent  coupling  of  gas  chromatography  (GC)  to  transfer  individual  compounds, 
combusted  inline,  to  the  isotope  ratio  mass  spectrometer  (IRMS)  provides  a  two 
dimensional  ability  to  identify  individual  contaminant  sources  (e.g.  Hammer  et  al.  1998). 
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Preliminary  experiments  demonstrate  that  the  carbon  isotope  signature  in  2-,  3-,  4-,  5- 
ring  PAHs  is  stable  to  vaporization,  photolytic  decomposition  and  microbial  degradation 
(O’Malley  et  ai,,  1994).  If  contaminant  sources  have  a  broad  range  in  813C  it  is  possible 
to  determine  the  contribution  of  a  source  to  the  total  loading.  With  8UC  analysis  the 
percent  of  vehicular  emissions  and  crank  case  oil  in  the  total  PAH  loading  was  estimated 
in  the  St.  John’s  Harbour,  Newfoundland  (O’Malley  et  al.,  1996).  In  a  similar  study 
using  8l3C  for  analysis  of  benzene,  toluene,  ethylbenzene  and  xylene  (BTEX)  multiple 
petroleum  sources  were  shown  to  be  present  in  groundwater  that  was  thought  to  be 
contaminated  with  one  source  (Kelley  et  al.  1997).  Other  recent  research  provides  further 
support  for  the  application  of  carbon  isotope  analysis  to  trace  the  contaminant  sources. 
This  approach  has  been  applied  in  the  tracking  of  nitroaromatic  compounds  (Coffin  et  al. 
2001),  PCE  and  TCE  (Lollar  et  al.  2001),  and  jet  fuels  (Landmeyer  et  al.  1996).  This 
research  has  initiated  the  application  of  carbon  isotope  analysis  to  assess  organic 
contaminant  sources  in  ecosystems. 

GOALS 

1.  Develop  the  software  to  survey  carbon  isotope  ratio  data  for  determination  of 
contaminant  sources. 

2.  Initiate  a  stable  carbon  isotope  facility  at  the  Norfolk  Navy  Base  to  determine  the 
source(s)  of  petroleum  spills. 


METHODS 

This  project  applies  the  recent  development  in  stable  carbon  isotope  analysis  to  trace  fuel 
sources  at  the  Norfolk  Navy  Base.  The  preliminary  step  in  this  project  was  to  use 
existing  and  contemporaneously-gathered  data  to  develop  a  hydrocarbon  stable  carbon 
analysis  software  application.  This  application  consists  of  a  data  entry  module,  data 
analysis  module  and  a  reporting  module.  The  data  entry  module  allows  users  to  import 
excel  data,  or  enter  stable  carbon  isotope  data  directly  into  the  application.  A  user  will 
then  be  able  to  perform  a  series  of  statistical  analysis  (as  described  below)  to  determine 
the  similarities  between  hydrocarbon  samples.  The  reporting  module  displays  and  can 
"export"  the  results  of  the  analysis  for  inclusion  in  standard  documenting  formats  (i.e. 
Word®,  Powerpoint®,  etc).  The  analysis  module  processes  data  in  a  number  of  ways. 

One  of  the  difficulties  in  interpreting  data  from  isotope  analyses  is  that  there  are  more 
than  two  variables,  negating  a  simple,  direct  analysis  of  variance.  In  the  data  entry 
module  a  series  of  alkanes  and  their  513C  values  will  be  entered.  In  this  way,  there  will  at 
least  eight  separate  variables  (i.e.  Cio,  Cn,  C12,  etc)  per  sample.  Data  with  multiple 
observations  and  multiple  variables  lends  itself  to  multivariate  analysis.  In  developing 
the  analysis  software  module,  the  Matlab®  multivariate  statistical  toolbox  was  used. 

The  first  analysis  is  a  MANOVA  or  multiple  analysis  of  variance.  This  analysis  allows 
one  to  determine  if  there  are  statistically  significant  differences  between  two  samples 
with  multiple  variables.  Data  output  from  this  test  provides  a  probability  that  the  two 
samples  are  the  same.  Generally,  if  the  P  (or  probability)  value  is  less  than  0.05,  there  is 
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only  a  5%  chance  that  the  two  samples  are  the  same.  The  analysis  module  will  allow  the 
user  to  select  the  desired  probability  reporting  (i.e.  5%  or  1%)  as  a  screening  tool.  The 
actual  probabilities  are  calculated  and  transferred  to  the  reporting  module.  Aside  from 
determining  if  two  sources  are  "different,"  it  will  also  be  of  use  to  determine  how  similar 
two  sources  are.  For  instance,  if  two  sources  intermingle,  the  resulting  mixture  might  be 
"different"  from  each  of  its  parent  sources;  however  it  might  be  closely  related  to  both. 
Principal  components  or  factor  analysis  (PCA)  can  help  an  investigator  determine  how 
closely  related  two  samples  are  by  simplifying  the  factors  controlling  variability.  By 
plotting  the  first  two  factors  against  one  another,  samples  can  be  visualized  based  on  their 
relatedness.  Each  factor  is  given  a  weighting  as  to  how  important  it  is  in  describing  the 
variability  found  in  the  original  data.  Cluster  analysis  is  another  multivariate  means  to 
determine  the  relatedness  of  samples.  This  analysis  does  not  try  to  "simplify"  the 
variability  between  samples,  and  therefore  must  be  interpreted  in  light  of  the  cophenetic 
correlation  coefficient  (which  in  the  case  of  the  test  data  set  used  here  was  too  low  for 
acceptable  results).  Matlab®  has  a  number  of  protocols  to  fine  tune  data  for  inclusion  in 
this  analysis.  The  reporting  module  collates  information  from  the  analysis  module  and 
outputs  data  in  a  report  format.  The  output  is  exportable  to  standard  formats  (i.e.  Word®, 
Powerpoint®,  PDF®,  etc)  as  well  as  printable  on  any  Windows-installed  printer. 

The  underlying  statistics  for  the  application  are  derived  from  the  Matlab®  computing 
language  using  the  Matlab®  compiler  which  allows  Matlab®  code  to  be  converted  to 
C/C++.  Although  the  Matlab®  environment  includes  a  graphical  user  interface 
development  module,  statistical  routines  were  exported  to  C++  code  and  compiled  into 
dynamic  libraries  that  were  included  in  a  program  developed  within  the  Microsoft® 

Visual  Studio.net  environment.  In  this  manner,  the  "standard"  Windows®  interface  is 
used  for  the  finished  product.  The  separate  modules  (data  entry,  data  analysis,  reporting) 
work  together  within  an  overall  stand-alone  Windows®  application. 

THE  SOFTWARE 

I.  Introduction 

The  IRMS  Data  Processing  software  package  (IRMS-DP)  is  designed  to  allow  easy  stable 
isotope  data  entry  and  multivariate  data  analysis.  When  comparing  two  or  more 
hydrocarbon  samples  using  compound-specific  isotope  ratio  mass  spectrometry,  an 
analyst  obtains  multiple  data  variables  for  each  sample.  For  instance  with  volatile 
samples,  one  may  be  able  to  separate  benzene,  toluene,  ethyl-benzene,  p-xylene,  o-xylene 
and  m-xylene  and  obtain  a  stable  isotope  ratio  for  each.  Multivariate  statistics  allows 
rigorous  comparison(s)  to  determine  if  the  samples  are  in  fact  different  and  if  so,  how 
closely  related  they  are. 

This  software  uses  three  main  types  of  data  analyses:  Multiple  Analysis  of  Variance 
(MANOVA),  Principal  Components  Analysis  (PCA),  and  Cluster  Analysis.  In  data  sets 
with  multiple  variables,  it  is  desirable  to  determine  if  the  means  of  two  samples  are 
significantly  different.  A  multiple  analysis  of  variance  (MANOVA)  can  be  used  to 
produce  probability  values.  A  P  value  of  0.01  essentially  means  that  one  can  be  99% 
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certain  that  chance  alone  would  not  lead  to  the  differences  seen  between  sample  means. 

In  data  sets  with  multiple  variables,  groups  of  variables  often  behave  similarly.  More  than 
one  variable  may  in  fact  be  describing  the  same  principle  of  the  system.  PCA  attempts  to 
simplify  a  multivariate  data  set  by  replacing  a  group  of  variables  with  a  single  new 
variable,  called  a  principal  component.  Each  principal  component  is  a  linear  combination 
of  the  original  variables.  The  variance  of  each  principal  component  is  the  maximum 
among  all  possible  choices.  The  analysis  provides  information  as  to  how  much  of  the 
original  variance  is  represented  by  each  principal  component.  Therefore,  when  the 
primary  components  are  graphed  against  one-another,  data  sets  that  are  highly  similar 
will  plot  together,  while  dissimilar  data  sets  will  occupy  different  spaces  on  a  graph.  The 
result  of  placing  the  scores  in  a  new  coordinate  system  allows  visualizing  the  data. 

In  addition  to  PCA  analysis,  clustering  analysis  can  be  used  to  determine  a  relative 
'distance'  between  relations  in  multivariate  data.  This  would  be  analogous  to  plotting  a 
family  tree  and  using  one  inch  to  represent  each  generation  of  distance  between 
progenitors  and  progeny.  The  length  of  vertical  lines  in  clusters  is  indicative  of  the 
'distance'  of  relatedness  between  samples. 

II.  Program  Introduction 

IRMS-DP  is  meant  to  be  similar  to  any  windows  spreadsheet  software  for  data  entry. 

Each  step  in  data  entry  and  subsequent  analysis  is  menu  driven  allowing  a  "non¬ 
statistician"  to  use  the  software  effectively.  The  user  is  asked  how  many  replicates  will 
be  entered  (i.e.  how  many  replicate  sample  runs)  and  whether  he/she  wishes  to  name  each 
variable  in  the  data  grid.  Naming  or  not  naming  variables  will  not  impact  the  data 
analysis  so  this  feature  is  provided  solely  for  the  convenience  of  the  user.  Once  the  data 
grid  is  created,  the  user  enters  the  sample  name  (or  SamplelD)  for  each  sample  and  the 
individual  stable  isotope  ratios  for  each  compound  (variable).  These  can  be  manually 
entered  or  pasted  into  the  grid  from  a  text  or  spreadsheet  application.  One  data  grid 
should  be  made  for  each  set  of  measurements  with  the  same  number  of  variables. 

For  example,  if  seven  hydrocarbons  (variables),  such  as  nonane,  decane,  undecane, 
dodecane,  tridecane,  tetradecane,  pentadecane,  and  hexadacane  were  determined  for  8 
samples,  but  in  4  samples,  tetradecane  was  not  resolvable,  the  4  samples  (without 
tetradecance)  must  be  placed  in  a  separate  data  table  for  analysis.  Only  samples  with 
the  same  number  of  variables  can  be  directly  compared  to  one  another  with  this 
program's  statistical  techniques. 

Once  the  data  grid  is  complete,  the  user  can  choose  any  of  the  three  main  statistical  tests 
and  receive  results.  The  results  are  displayed  in  graphs  and  in  associated  text  box(s)  so 
the  user  can  "keep"  the  most  useable  data  and  results.  Data,  results  and  graphs  are 
exportable  and  savable  to  be  portable  between  IRMS-PD  and  presentation/graphics 
software. 

III.  Data  Table  Setup 
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The  Data  Table  or  Grid  is  the  first  entry  step  for  using  IRMS-DP.  Upon  opening  the 
program,  the  user  is  presented  with  a  "blank"  program  workspace: 


The  "standard"  windows  menus  are  available  as  well  as  a  toolbar  representing  shortcuts 
to  commonly  used  menu  items.  The  first  step  in  performing  an  analysis  is  to  create  or 
open  a  Data  Table.  Under  the  file  menu,  there  is  a  choice  for  New  or  Open.  These 
choices  are  also  represented  by  the  first  two  toolbar  buttons.  If  the  user  chooses  to  create 
a  new  Data  Table,  he/she  is  presented  with  the  following  screen: 
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The  Make  Data  Table  dialog  box  requires  the  user  to  select  the  number  of  replicates  to  be 
entered  for  each  sample.  The  default  is  three  (3).  This  can  be  changed  to  any  number  the 
user  wishes.  However,  data  must  be  entered  for  all  of  the  replicates  specified.  Therefore, 
the  user  should  select  the  lowest  number  of  replicates  found  in  the  group  of  samples  to  be 
analyzed.  The  user  is  also  asked  if  he/she  wishes  to  name  the  variables.  This  is  not 
necessary,  but  makes  manual  data  entry  easier  (with  named  column  headings).  If  the  user 
chooses  to  name  variables,  he/she  will  be  provided  with  the  following  dialog  box: 
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Variables  (i.e.  individual  compounds)  can  be  entered  just  as  one  would  enter  data  into  a 
spreadsheet.  Once  entered,  the  variable  names  can  be  saved  to  a  text  file  for  use  in 
subsequent  analyses.  Alternatively,  if  the  same  compounds  were  used  in  a  previous 
analysis  and  saved,  the  file  can  be  opened  to  populate  the  Compound  grid: 
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Above  is  listing  of  straight-chain  hydrocarbons  that  can  be  analyzed  by  compound- 
specific  isotope  ratio  mass  spectrometry.  If  Save  is  clicked,  the  file  can  be  stored  for 
future  use: 
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When  OK  is  pressed  (or  No  in  the  Make  Table  dialog  box),  a  Data  Table  is  created  for 
the  user: 
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After  the  Data  Table  Is  created,  the  user  can  enter  the  SampIelD  and  individual 
measurements  for  each  compound  and  replicate  in  the  group  of  samples: 


The  program  checks  each  isotope  value  to  make  sure  it  is  >-100  and  <  100  as  a  check  for 
the  user.  Cells  in  the  Replicate  column  are  locked  because  the  statistical  methods  rely  on 
replicate  analyses  (of  known  and  fixed  value)  for  processing.  User  preferences  for  text 
style  and  cell  colors  can  be  made  using  the  Format  >  Cells  menu  and  toolbar  icons: 
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IV.  Statistical  Analyses 


Statistical  analyses  are  located  under  the  Data  menu.  The  user  can  choose  between 
Manova,  PCA  and  Cluster.  Regardless  of  the  choice,  the  user  is  presented  with  a  dialog 
to  select  samples  to  be  included  in  the  analysis: 


A.  Manova.  The  Manova  analysis  seeks  to  determine  if  there  is  a  statistically 
significant  difference  in  the  means  of  each  sample.  The  analysis  relies  on  a  square  matrix 
of  data  so  the  initial  step  in  the  analysis  is  to  determine  the  average  and  standard 
deviation  of  the  original  data.  Using  an  internal  algorithm,  the  software  "expands"  the 
data  using  a  random  numbers  to  create  a  square  matrix  with  the  same  mean  and  standard 
deviation.  The  data  are  then  analyzed  and  a  table  of  P  values  is  presented  which  allows 
the  user  to  determine  if  there  is  a  statistical  difference  between  the  samples  in  the 
analysis.  A  P  value  less  than  0.05  are  considered  significant. 
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•TV  Data  Table  1  Manova  Output  1/6/2004.8:29:3?  AM  \  §  p| 


Huitipie  analysis  of  :  variance  completed 


fully. 


'  41  Sam; 


s«s: 


In  data  sets  with  multiple  variables,  it  is  desireable  to  determine 
if  the  means  of  two  samples  are  significantly  different.  A  multiple 
analysis  of  variance  (HANOVA)  can  be  used  to  produce  probability 
| values i  A  P  value  of  0.01  essentially  means  that  one  can  be  99* 
certain  that  chance  alone  would  not  lead  to  the  differences  seen 
etween  sample  means.  In  this  analysis,  one  must  have  a  ‘square* 
Imatrix.  Therefore,  the  original  data  is  expanded  using  a  random 
number  generator  to  produce  the  proper  matrix  dimensions. 


ij  Sam 


Fl 


The  following  table  shows  each  test  (Sample  1  vs  Sample  2)  and  the  p| 
lvalue.  A  P  value  of  less  than  0.05  indicates  a  significant 
jidif  f  erence . 


San’- 


III 


■3— - 


Sample  1. 

Sample  2 

P  value 

Sample  1 

Sample  2 

<0.001 

Sample  1 

Sample  3 

<  O.OOl 

Sample  1 

Sample  4 

<0.001 

Sample  1 

Sample  5 ■ 

<0.001 

Sample  1 

Sample  6 

<0.001 

Sample  2 

Sample  3 

<0.001 

Sample  2 

Sample  4 

<0.001 

Sample  2 

Sample  5 

<  0.001 

Sample  2 

Sample  6 

<  0.001 

Sample  3 

Sample  4 

<0.001 

Sample  3 

Sample  5 

<0.001 

Sample  3 

Sample  6 

<0.001 

Sample  4 

Sample  5 

<  b.ooi 

Sample  4. 

Sample  6 

<0.001 

Sample  5 

Sample  6‘ 

<  0.OO1 

B.  PCA.  PCA  is  a  method  by  which  variability  in  data  is  represented  by  a  "new" 
series  of  variables.  These  new  components  represent  a  principle  of  the  variability  in  the 
original  data  set.  The  variability  for  each  principal  component  is  represented  in  a 
generated  table.  Typically,  the  first  two  components  explain  70%  or  more  of  the 
intersample  variability.  For  this  reason,  these  components  are  graphed  against  one 
another  so  that  data  can  be  clustered  into  "like"  samples.  Samples  that  line  up  in 
Component  One  (i.e.  have  similar  X  distribution)  are  likely  quite  similar  (if  the  first 
Component  accounts  for  >50%  of  the  variability).  Samples  that  line  up  in  the 
Component  Two  (i.e.  have  similar  Y  distribution)  are  also  likely  to  be  similar  (because 
the  second  Component  accounts  for  the  second  most  variability).  Those  samples  that 
cluster  together  when  X  is  plotted  again  Y  should  therefore  be  very  closely  related. 

When  PCA  is  selected  in  IRMS-DP,  Component  One  is  graphed  against  Component  Two 
and  the  Variability  attributable  to  each  Component  is  also  graphed.  In  addition,  a  text 
output  is  provided  with  an  explanation  of  the  graphs: 
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C.  Cluster.  Clustering  analysis  can  be  used  to  determine  a  relative  'distance'  between 
relations  in  multivariate  data.  The  length  of  vertical  lines  in  clusters  is  indicative  of  the 
'distance'  of  relatedness  between  wells.  When  the  Cluster  analysis  is  selected,  the  data 
are  analyzed  and  a  dendrogram  is  presented  to  the  user  along  with  a  text  description  of 
the  graphic. 
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£■  IRMS  Data  Processing 


Data  Wirdow  Help 
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1  leted  successfully . 


In  addition  to  PC A  analysis,  clustering  analysis  can  be  used  to 
determine  a  relative  ’  distance1  bettreen  relations  in  mult  i variate 
data.  This  would  be  analogous  to  plotting  a  family  tree  arid  using 
one  inch  to  represent  each  generation  of  distance  between 
progenitors  and  progeny.  The  length  of  vertical  lines  in  clusters 
is  indicative  of  the  ’distance’  of  t elatedness  between  wells. 


Hi 

— i^jr 
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V.  Export,  Copying,  Printing,  and  Saving  Data  and  Graphics 

The  IRMS-DP  package  can  export  Data  Tables,  graphs  and  text  windows.  The  easiest 
way  to  export  these  objects  is  to  use  the  Windows  clipboard.  Copy  operations  can  be 
conducted  through  the  Edit  menu,  the  button  bar,  and  the  context  menu  (right-click 
menu)  available  for  each  open  object. 


Alternatively,  Table,  text  and  graphs  can  be  exported  (Save  As)  to  comma  separated 
values  (CSV),  plain  text  (TXT)  or  enhanced  metafile  (EMF)  respectively.  Save 
operations  are  available  through  the  File  menu  or  through  context  menu(s)  on  each 
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application  sub-window. 


Printing  operations  all  use  the  same  rendering  engine.  Each  document  type  (Data  Table, 
text,  or  graph)  is  converted  to  a  print  document  and  displayed  to  the  user  for  additional 
print  formatting.  Pressing  the  Print  icon  in  the  preview  toolbar  sends  the  data  to  a 
selected  printer: 


VI.  Exiting  the  Application 

The  application  can  be  exited  by  pressing  <Alt>  F4,  by  clicking  the  X  in  the  upper  right- 
hand  comer,  or  by  selecting  Exit  under  the  File  menu. 
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APPENDIX  I 


Code  listing.  The  following  pages  list  all  of  the  Visual  Basic  Code  used  in  the 
application.  The  individual  component  objects  used  in  the  project  can  be  seen  in  the 
figure  below.  Code  for  each  is  included. 


C:\Documents  and  Settings\t jb\My  Document s\ , . .  Studio  Frojects\IRMS  Processing OQ\Main.vb 
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Imports 

Imports 

Imports 

Imports 

Imports 

Imports 

Imports 

Imports 

Imports 

Imports 

Imports 

Imports 


Cl . Win. ClFlexGrid 

System.Text . RegularExpressions 

System, Data 

System . Drawing 

System . Component Model 

System. Collections 

Cl . Common 

System. Drawing. Imaging 
System.Math 

System, Drawing, Printing 

System. IO 

Cl . CIPrintDocument 


Public  Class  Forml 

Inherits  System . Windows . Forms , Form 

iRegion  M  Windows  Form  Designer  generated  code  11 

Public  Sub  New{) 

MyBase.NewO 

•This  call  is  required  by  the  Windows  Form  Designer, 
InitializeComponent ( } 

•Add  any  initialization  after  the  InitializeComponent ()  call 
End  Sub 

•Form  overrides  dispose  to  clean  up  the  component  list. 

Protected  Overloads  Overrides  Sub  Dispose (ByVal  disposing  As  Boolean) 
If  disposing  Then 

If  Not  (components  Is  Nothing)  Then 
components . Dispose ( ) 

End  If 
End  If 

MyBase. Dispose (disposing) 

End  Sub 


•Required  by  the  Windows  Form  Designer 

Private  components  As  System. ComponentModel . I Container 


•NOTE:  The  following  procedure  is  required  by  the  Windows  Form  Designer 
•It  can  be  modified  using  the  Windows  Form  Designer. 

•Do  not  modify  it  using  the  code  editor. 

Friend  WithEvents  MainMenul  As  System. Windows . Forms ,MainMenu 
Friend  WithEvents  Menultem6  As  System. Windows . Forms .Menultem 
Friend  WithEvents  MenuItemlG  As  System. Windows .Forms. Menultem 
Menulteml2  As  System. Windows .Forms. Menultem 
MenuItemlS  As  System. Windows . Forms .Menultem 

FrintPreviewDialogl  As  System, Windows . Forms . Print PreviewDialog 
mnuFileExit  As  System. Windows . Forms .Menultem 
mnuFile  As  System. Windows . Forms .Menultem 
mnuFileNew  As  System. Windows . Forms .Menultem 
mnuFileOpen  As  System. Windows . Forms .Menultem 
mnuFileSave  As  System. Windows , Forms .Menultem 
mnuFileSaveAs  As  System. Windows . Forms .Menultem 
FilePrintPreview  As  System. Windows . Forms .Menultem 
Friend  WithEvents  mnuFilePrint  As  System . Windows . Forms .Menultem 
Friend  WithEvents  mnuFileProperties  As  System. Windows . Forms .Menultem 
mnuEdit  As  System. Windows .Forms .Menultem 
mnuEditUndo  As  System. Windows . Forms .Menultem 
mnuEditCut  As  System. Windows . Forms .Menultem 
Friend  WithEvents  mnuEditCopy  As  System. Windows , Forms .Menultem 
Friend  WithEvents  mnuEdit Paste  As  System, Windows . Forms .Menultem 
Friend  WithEvents  mnuEditDelete  As  System. Windows . Forms .Menultem 


Friend  WithEvents 
Friend  WithEvents 
Friend  WithEvents 
Friend  WithEvents 
Friend  WithEvents 
Friend  WithEvents 
Friend  WithEvents 
Friend  WithEvents 
Friend  WithEvents 
Friend  WithEvents 


Friend  WithEvents 
Friend  WithEvents 
Friend  WithEvents 
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2 


C:\Documents  and  Settings\t jb\My  Documents\ . . .  Studio  Projects\IRMS_Processing_OQ\Main.vb 

Friend  WithEvents  mnuDeleteTable  As  System. Windows . Forms . Menultem 
Friend  WithEvents  mnulnsert  As  System. Windows . Forms .Menultem 
Friend  WithEvents  mnuInsertColumns  As  System. Windows . Forms .Menultem 
Friend  WithEvents  mnuFormat  As  System. Windows . Forms .Menultem 
Friend  WithEvents  mnuData  As  System. Windows . Forms .Menultem 
Friend  WithEvents  mnuDataStatistics  As  System. Windows . Forms .Menultem 
Friend  WithEvents  mnuWindow  As  System. Windows . Forms .Menultem 
Friend  WithEvents  mnuHelp  As  System. Windows . Forms .Menultem 
Friend  WithEvents  mnuHelpProgramHelp  As  System. Windows . Forms .Menultem 
Friend  WithEvents  Menultem2  As  System. Windows . Forms .Menultem 
Friend  WithEvents  mnuHelpAbout  As  System. Windows . Forms .Menultem 
Friend  WithEvents  OpenFileDialogl  As  System. Windows .Forms .OpenFileDialog 
Friend  WithEvents  SaveFileDialogl  As  System. Windows . Forms . SaveFileDialog 
Friend  WithEvents  PrintDialogl  As  System. Windows . Forms . PrintDialog 
Friend  WithEvents  PageSetupDialogl  As  System. Windows . Forms . PageSetupDialog 
Friend  WithEvents  mnuDataProcess  As  System . Windows . Forms . Menultem 
Friend  WithEvents  mnuDataProcessManova  As  System. Windows . Forms .Menultem 
Friend  WithEvents  mnuDataProcessPCA  As  System. Windows . Forms .Menultem 
Friend  WithEvents  mnuDataProcessCluster  As  System. Windows . Forms .Menultem 
Friend  WithEvents  mnuWindowTile  As  System. Windows . Forms .Menultem 
Friend  WithEvents  mnuWindowCascade  As  System. Windows . Forms .Menultem 
Friend  WithEvents  mnuArrangelcons  As  System. Windows . Forms .Menultem 
Friend  WithEvents  WindowCloseAll  As  System. Windows . Forms . Menultem 
Friend  WithEvents  mnuFormatCellsFont  As  System . Windows . Forms . Menultem 
Friend  WithEvents  mnuFormatCellsColor  As  System . Windows . Forms . Menultem 
Friend  WithEvents  mnuFileClose  As  System. Windows . Forms . Menultem 
Friend  WithEvents  ToolBarl  As  System . Windows . Forms . ToolBar 
Friend  WithEvents  tlbFileNew  As  System. Windows . Forms . ToolBarButton 
Friend  WithEvents  tlbFileOpen  As  System. Windows . Forms . ToolBarButton 
Friend  WithEvents  tlbFileClose  As  System. Windows . Forms .ToolBarButton 
Friend  WithEvents  tlbFileSave  As  System. Windows . Forms .ToolBarButton 
Friend  WithEvents  tlbEditCut  As  System. Windows . Forms .ToolBarButton 
Friend  WithEvents  tlbEditCopy  As  System. Windows . Forms . ToolBarButton 
Friend  WithEvents  tlbEditPaste  As  System. Windows . Forms . ToolBarButton 
Friend  WithEvents  ImageListl  As  System . Windows . Forms . ImageList 
Friend  WithEvents  ToolBarButtonl  As  System . Windows . Forms . ToolBarButton 
Friend  WithEvents  tlbFilePrint  As  System . Windows . Forms . ToolBarButton 
Friend  WithEvents  ToolBarButton2  As  System . Windows . Forms . ToolBarButton 
Friend  WithEvents  tlbFormatBold  As  System. Windows . Forms .ToolBarButton 
Friend  WithEvents  t lbFormatltal ics  As  System. Windows . Forms . ToolBarButton 
Friend  WithEvents  t lbFormatUnderline  As  System. Windows . Forms .ToolBarButton 
Friend  WithEvents  tlbFormatLeft Justified  As  System . Windows . Forms . ToolBarButton 
Friend  WithEvents  tlbFormatCenterJustif ied  As  System . Windows . Forms . ToolBarButton 
Friend  WithEvents  tlbFormatRightJustif ied  As  System. Windows . Forms . ToolBarButton 
Friend  WithEvents  ToolBarButton3  As  System. Windows . Forms . ToolBarButton 
Friend  WithEvents  ToolBarButton4  As  System . Windows . Forms . ToolBarButton 
Friend  WithEvents  ToolBarButtonS  As  System .Windows . Forms . ToolBarButton 
Friend  WithEvents  ToolBarButton6  As  System .Windows . Forms . ToolBarButton 
Friend  WithEvents  ToolBarButton7  As  System. Windows . Forms . ToolBarButton 
Friend  WithEvents  ToolBarButton8  As  System. Windows . Forms . ToolBarButton 
Friend  WithEvents  ToolBarButtonl3  As  System . Windows . Forms . ToolBarButton 
Friend  WithEvents  ToolBarButtonl4  As  System . Windows . Forms . ToolBarButton 
Friend  WithEvents  ToolBarButtonlB  As  System . Windows . Forms . ToolBarButton 
Friend  WithEvents  ToolBarButtonl6  As  System . Windows . Forms . ToolBarButton 
Friend  WithEvents  mnuInsertRows  As  System. Windows . Forms .Menultem 
Friend  WithEvents  mnuFormatCells  As  System. Windows . Forms .Menultem 
Friend  WithEvents  FontDialogl  As  System . Windows . Forms . FontDialog 
Friend  WithEvents  ColorDialogl  As  System. Windows . Forms . ColorDialog 
Friend  WithEvents  mnuFormatChart  As  System . Windows . Forms . Menultem 
Friend  WithEvents  doc  As  Cl . CIPrintDocument . CIPrintDocument 
Friend  WithEvents  HelpProviderl  As  System. Windows . Forms .HelpProvider 
<System. Diagnostics . DebuggerStepThrough () >  Private  Sub  InitializeComponent ( ) 

Me . components  =  New  System. ComponentModel . Container 
Dim  resources  As  System . Resources . ResourceManager  =  New  System . Resources .  yf 

ResourceManager (GetType (Forml) ) 

Me.MainMenul  =  New  System. Windows . Forms . MainMenu 
Me.mnuFile  =  New  System . Windows . Forms . Menultem 
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C:\Documents  and  Settings\t jb\My  Document s\ .. .  Studio  Projects \IRMS_Processing 00\Main,vb 
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Me .mnuFileNew  -  New  System.  Windows  .  Forms  .Menultem 
Me.mnuFileOpen  =  New  System. Windows . Forms .Menul tern 
Me.mnuFileClose  =  New  System. Windows . Forms .Menultem 
Me.mnuFileSave  =  New  System. Windows . Forms .Menultem 
Me.mnuFileSave As  =  New  System. Windows . Forms .Menultem 
Me. Menul tem6  =  New  System. Windows . Forms .Menultem 
Me , FilePrintPreview  =  New  System. Windows . Forms .Menultem 
Me .mnuFilePrint  -  New  System. Windows . Forms .Menultem 
Me .MenuItemlO  =  New  System. Windows . Forms .Menultem 
Me.mnuFileProperties  =  New  System. Windows . Forms .Menultem 
Me .Menulteml2  =  New  System. Windows . Forms .Menultem 
Me .mnuFileExit  =  New  System. Windows . Forms . Menultem 
Me.mnuEdit  =  New  System. Windows . Forms .Menultem 
Me.mnuEditUndo  =  New  System. Windows . Forms .Menultem 
Me.mnuEdit Cut  =  New  System. Windows . Forms .Menultem 
Me.mnuEditCopy  =  New  System. Windows .Forms .Menultem 
Me .mnuEditPaste  =  New  System. Windows . Forms .Menultem 
Me.MenuItemlS  -  New  System.Windows . Forms .Menultem 
Me.mnuEditDelete  =  New  System. Windows . Forms .Menultem 
Me.mnuDeleteTable  =  New  System. Windows . Forms .Menultem 
Me.mnulnsert  =  New  System, Windows . Forms .Menultem 
Me .mnulnsert Columns  =  New  System. Windows . Forms .Menultem 
Me .mnuInsertRows  =  New  System. Windows . Forms .Menultem 
Me.mnuFormat  =  New  System. Windows .Forms .Menultem 
Me .mnuFormatCells  =  New  System.Windows . Forms .Menultem 
Me .mnuFormatCellsFont  =  New  System. Windows . Forms .Menultem 
Me .mnuFormatCellsColor  =  New  System. Windows . Forms .Menultem 
Me.mnuFormatChart  =  New  System. Windows . Forms .Menultem 
Me.mnuData  =  New  System.Windows . Forms .Menultem 
Me.mnuDataProcess  =  New  System. Windows . Forms .Menultem 
Me . amuDataProcessManova  =  New  System. Windows . Forms .Menultem 
Me.mnuDataProcessPCA  =  New  System. Windows . Forms .Menultem 
Me .mnuDataProcessCluster  -  New  System. Windows . Forms .Menultem 
Me.mnuDataStatistics  -  New  System. Windows . Forms .Menultem 
Me . mnuWindow  =  New  System. Windows . Forms .Menultem 
Me.mnuWindowTile  =  New  System. Windows . Forms .Menultem 
Me .mnuWindowCascade  =  New  System. Windows. Forms .Menultem 
Me . mnuArr angel cons  =  New  System. Windows . Forms .Menultem 
Me . WindowCloseAll  -  New  System. Windows » Forms .Menultem 
Me.mnuHelp  =  New  System.Windows . Forms .Menultem 
Me .mnuHelpProgramHelp  =  New  System.Windows .Forms .Menultem 
Me.MenuItem2  =  New  System. Windows . Forms .Menultem 
Me.mnuHelpAbout  =  New  System.Windows . Forms .Menultem 

Me . PrintPreviewDialogl  -  New  System. Windows . Forms . Print PreviewDialog 

Me . OpenFi leDialogl  =  New  System.Windows . Forms .OpenFileDialog 

Me . SaveFileDialogl  =  New  System . Windows . Forms . SaveFileDialog 

Me , Prints ialogl  =  New  System. Windows . Forms . PrintBialog 

Me , PageSetupDialogl  =  New  System. Windows . Forms . PageSetupDialog 

Me.ToolBarl  =  New  System. Windows . Forms .Tool Bar 

Me, tlbFileNew  =  New  System.Windows . Forms . ToolBarButton 

Me , tlbFileOpen  =  New  System. Windows , Forms .ToolBarButton 

Me . tlbFileClose  =  New  System. Windows . Forms .ToolBarButton 

Me. tlbFileSave  =  New  System. Windows . Forms .ToolBarButton 

Me . tlbFilePrint  -  New  System.Windows . Forms .ToolBarButton 

Me.ToolBarButtonl  =  New  System. Windows , Forms . ToolBarButton 

Me.ToolBarButton4  =  New  System. Windows .Forms .ToolBarButton 

Me . ToolBarButtonB  =  New  System. Windows . Forms . ToolBarButton 

Me .ToolBarButtonS  =  New  System.Windows .Forms .ToolBarButton 

Me. tlbEditCut  =  New  System.Windows . Forms .ToolBarButton 

Me . tlbEditCopy  =  New  System. Windows . Forms .ToolBarButton 

Me. tlbEditPaste  -  New  System. Windows . Forms .ToolBarButton 

Me.ToolBarButton2  =  New  System. Windows . Forms . ToolBarButton 

Me .ToolBarButtonS  =  New  System. Windows . Forms .ToolBarButton 

Me .ToolBarButton?  =  New  System. Windows . Forms .ToolBarButton 

Me .ToolBarButtonS  «  New  System. Windows . Forms . ToolBarButton 

Me. tlbFormatBold  =  New  System. Windows . Forms .ToolBarButton 

Me . tlbFormatltalics  =  New  System. Windows. Forms. ToolBarButton 


26 


4 


C:\Documents  and  Settings\t jb\My  Documents\ , . .  Studio  Projects\lRMS_Processing  00\Main. vb 

Me . tlbFormatUnderline  =  New  System. Windows . Forms . ToolBarButton 
Me . ToolBarButtonl3  =  New  System. Windows . Forms .ToolBarBut ton 
Me . ToolBarButtonl4  =  New  System . Windows . Forms . ToolBarButton 
Me . ToolBarButtonlS  =  New  System. Windows . Forms . ToolBarButton 
Me . ToolBarButtonl6  =  New  System. Windows . Forms .ToolBarButton 
Me . tlbFormatLeft Justified  =  New  System . Windows . Forms . ToolBarButton 
Me. tlbFormatCenter Justified  =  New  System. Windows . Forms . ToolBarButton 
Me. tlbFormatRight Justified  =  New  System. Windows . Forms . ToolBarButton 
Me . ImageLis t 1  =  New  System. Windows . Forms . ImageList (Me . components) 

Me . FontDialogl  =  New  System. Windows . Forms . FontDialog 
Me . ColorDialogl  =  New  System. Windows . Forms . ColorDialog 
Me. doc  =  New  Cl . CIPrintDocument . CIPrintDocument 
Me .HelpProviderl  =  New  System. Windows . Forms .HelpProvider 
Me . SuspendLayout ( ) 

i 

'MainMenul 

t 

Me .MainMenul .Menul terns .AddRange (New  System. Windows . Forms .Menultem ( )  {Me.mnuFile, 

Me . mnuEdit f  Me.mnulnsert,  Me.mnuFormat,  Me.mnuData,  Me . mnuWindow,  Me.mnuHelp}) 

i 

'mnuFile 

i 

Me .mnuFile . Index  =  0 

Me.mnuFile .Menul terns .AddRange (New  System. Windows . Forms . Menultem ( )  {Me . mnuFileNew,  X 
Me .mnuFileOpen,  Me . mnuFileClose ,  Me . mnuFileSave,  Me.mnuFileSaveAs,  Me . Menultem6 #  Me. 
FilePrint Preview,  Me .mnuFilePrint ,  Me . MenuItemlO ,  Me .mnuFileProperties ,  Me .Menulteml2 , * 
Me . mnuFileExit } ) 

Me.mnuFile  .Text  =  "&File" 

i 

' mnuFileNew 

Me .mnuFileNew . Index  =  0 

Me .mnuFileNew. Shortcut  =  System . Windows . Forms . Shortcut . CtrlN 
Me .mnuFileNew .Text  =  "&New" 

*  mnuFileOpen 

Me .mnuFileOpen. Index  a  1 

Me .mnuFileOpen. Shortcut  =  System. Windows . Forms . Shortcut . CtrlO 
Me .mnuFileOpen. Text  =  "&Open" 

V 

'mnuFileClose 

i 

Me. mnuFileClose . Index  =  2 

Me. mnuFileClose .Text  =  M&Close" 

i 

' mnuFileSave 

i 

Me .mnuFileSave . Index  =  3 

Me. mnuFileSave. Shortcut  -  System. Windows . Forms . Shortcut .CtrlS 
Me . mnuFileSave . Text  -  "ficSave" 

i 

*  mnuFileSaveAs 
» 

Me .mnuFileSaveAs . Index  =  4 

Me . mnuFileSaveAs . Text  =  "Save  &As . . . " 

* 

' Menultem6 

i 

Me . Menultem6 . Index  =  5 
Me .Menultem6 .Text  =  " - " 

1 FilePrintPreview 

i 

Me . FilePrintPreview. Index  =  6 

Me . FilePrintPreview. Text  =  "Print  Pre&view" 
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*  mnuF  i  le  Print 

i 

Me.mnuFilePrint. Index  =  7 
Me .mnuFilePrint .Text  =  "&Print" 

t 

•MenuItemlO 

t 

Me. MenuItemlO .Index  =  8 
Me. MenuItemlO .Text  - 

* 

*  mnuFileProperties 

i 

Me. mnuFi 1 eProper t ies . Index  -  9 

Me. mnuFileProperties .Text  =  w Propert&ies” 

*MenuIteml2 

f 

Me .Menulteml2 . Index  =  10 
Me.MenuIteml2 .Text  = 

t 

•mnuFileExit 

» 

Me. mnuFi leExit. Index  =  11 

Me. mnuFileExit. Shortcut  =  System. Windows . Forms .Shortcut .AltF4 
Me.mnuFileExit .Text  -  “E&xit** 

i 

*  mnuEdit 

Me. mnuEdit .Index  =  1 

Me .mnuEdit .Menu I terns .AddRange {New  System. Windows . Forms .Menultem { )  {Me .mnuEditUndo,  yf 
Me . mnuEditCut ,  Me .mnuEdit Copy,  Me .mnuEdit Paste,  Me .MenuItemlS ,  Me.mnuEditDelete,  Me. 
mnuDeleteTable) } 

Me .mnuEdit .Text  =  "SEdit” 

i 

•mnuEditUndo 

Me. mnuEditUndo. Enabled  =  False 

Me .mnuEditUndo. Index  -  0 

Me. mnuEditUndo, Text  -  "&Undow 

•mnuEditCut 

* 

Me. mnuEdit Cut . Index  =  1 
Me .mnuEditCut .Text  =  "Cu&t" 

i 

* mnuEdit Copy 

Me. mnuEditCopy. Index  =  2 
Me.  mnuEdit  Copy  .Text  =  **£cCopyM 
* 

1  mnuEdit  Paste 

Me. mnuEdit Pas te . Index  =  3 

Me.mnuEditPaste.Text  -  *'&Pasten 
* 

MenuItemlS 

I 

Me .MenuItemlS . Index  =  4 
Me .MenuItemlS .Text  =  **-*’ 

*  mnuEditDelete 

t 

Me .mnuEditDelete . Index  =  5 
Me.mnuEditDelete .Text  =  "^Delete" 

•mnuDeleteTable 
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Me .mnuDeleteTable . Index  =  6 

Me -mnuDeleteTable . Text  =  "De&lete  Column{s)" 

i 

’ mnulnsert 

V 

Me .mnulnsert . Index  =  2 

Me .mnulnsert .Menul terns .AddRange (New  System . Windows . Forms .Menultem ( )  {Me. 
mnulnser tColumns ,  Me . mnuInsertRows } ) 

Me. mnulnsert .Text  =  "^Insert" 

Me . mnulnsert .Visible  =  False 

' mnuInsertColumns 

i 

Me .mnuInsertColumns . Index  =  0 

Me . mnuInsertColumns . Text  =  "^Columns" 

Me .mnuInsertColumns .Visible  =  False 

i 

'mnuInsertRows 

t 

Me . mnuInsertRows . Enabled  -  False 

Me . mnuInsertRows . Index  =  1 

Me. mnuInsertRows  .Text  =  "ScRows" 

i 

' mnuFormat 

i 

Me . mnuFormat . Index  =  3 

Me. mnuFormat .Menul terns. AddRange (New  System. Windows . Forms . Menultem ( )  {Me. 
mnuFormatCells,  Me . mnuFormatChart } ) 

Me  .mnuFormat  .Text  =*  "F&ormat" 

i 

1 mnuFormatCells 
» 

Me . mnuFormatCells . Index  =  0 

Me. mnuFormatCells .Menul terns .AddRange (New  System. Windows . Forms .Menultem ( )  {Me.  * 

mnuFormat Cel Is Font ,  Me . mnuFormatCellsColor } ) 

Me . mnuFormatCells . Text  =  "&Cells" 

i 

' mnuFormatCellsFont 

i 

Me . mnuFormatCellsFont . Index  =  0 
Me. mnuFormatCellsFont .Text  =  "&Font" 

• 

' mnuFormatCellsColor 

T 

Me . mnuFormatCellsColor . Index  =  1 
Me .mnuFormatCellsColor . Text  -  "&Color" 

f 

' mnuFormatChart 

i 

Me .mnuFormatChart . Index  =  1 
Me  .mnuFormatChart  .Text  =  "C&hart" 

i 

' mnuData 

i 

Me .mnuData. Index  =  4 

Me .mnuData. Menul terns .AddRange (New  System. Windows . Forms . Menultem ( )  {Me.  * 

mnuDataProcess,  Me . mnuDataStatist ics } ) 

Me. mnuData. Text  =  "kData" 

i 

1 mnuDataProcess 

i 

Me . mnuDataProcess . Index  =  0 

Me. mnuDataProcess .Menultems .AddRange (New  System. Windows . Forms .Menultem ( )  {Me.  X 

mnuDataProcessManova,  Me . mnuDataProcessPCA,  Me .mnuDataProcessCluster } ) 

Me . mnuDataProcess .Text  =  "&Process" 

i 

* mnuDataProcessManova 
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Me .  nmuDat aProces  sManova .  Index  -  0 

Me . nmuDataProcessManova .Text  -  "SManova" 

t 

*  mnuDataProcessPCA 
« 

Me. mnuDataProcessPCA. Index  =  1 
Me. mnuDataProcessPCA. Text  =  "&PCA" 

*  ranuDataProeessCluster 

Me .ranuDataProeessCluster. Index  =  2 
Me .mnuDat aProces sClus ter .Text  =  "^Cluster" 

t 

*mnuDataStatistics 

■ 

Me. mnuDataStatis tics .Index  =  1 
Me.mnuDataStatistics .Text  =  "S&tatistics" 

Me. mnuDataStatis tics .Visible  =  False 

t 

* mnuWindow 

* 

Me . mnuWindow . Index  -  5 
Me .mnuWindow .MdiList  =  True 

Me. mnuWindow. Menul terns .AddRange (New  System. Windows . Forms .Menul tern ( )  {Me. 
mnuWindowTile,  Me .mnuWindowCascade,  Me . nmuArrangelcons ,  Me .WindowCloseAll} } 
Me .mnuWindow. Text  =  "SWindow" 

i 

*  tnnuWindowTi  1  e 

i 

Me. mnuWindowTile. Index  =  0 

Me , mnuW indowTi 1 e . Text  =  * &Ti X  e ■ 

i 

* mnuWindowCascade 

Me .mnuWindowCascade . Index  -  1 

Me . mnuWindowCascade . Text  -  "^Cascade" 

' mnuArrangelcons 

t 

Me. mnuArrangelcons. Index  -  2 

Me. mnuArrangelcons .Text  =  "SAr range  Icons" 

* 

*  WindowCloseAll 

i 

Me. WindowCloseAll .Index  =  3 

Me. WindowCloseAll .Text  =  "SClose  All" 

i 

’mnuHe Ip 

i 

Me.mnuHelp. Index  -  6 

Me .mnuHe Ip. Menul terns .AddRange (New  System. Windows . Forms .Menultem ( }  {Me. 
mnuHelpProgramHelp  ,  Me . Menul tem2 ,  Me . mnuHelpAbout } } 

Me. mnuHe Ip. Text  =  "SHelp" 

t 

*  mnuHelpProgramHelp 

* 

Me .mnuHelpProgramHelp. Index  =  0 

Me. mnuHelpProgramHelp. Text  =  "^Program  Help" 

*MenuItem2 

f 

Me .Menultem2 . Index  =  1 
Me .Menul tem2 .Text  = 

i 

*  mnuHelpAbout 
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Me . mnuHelpAbout . Index  =  2 

Me . mnuHelpAbout . Text  =  " &About ..." 

i 

' PrintPreviewDialogl 

i 

Me . PrintPreviewDialogl . AutoScrollMargin  =  New  System. Drawing . Size (0 ,  0) 

Me . PrintPreviewDialogl . AutoScrollMinSize  =  New  System. Drawing . Size (0 ,  0) 

Me. PrintPreviewDialogl. ClientSize  =  New  System. Drawing . Size (400 ,  300) 

Me . PrintPreviewDialogl . Enabled  =  True 

Me . PrintPreviewDialogl . Icon  =  CType { resources . GetOb j  ect ( " PrintPreviewDialogl . Icon" X 
),  System . Drawing . Icon) 

Me. PrintPreviewDialogl . Location  =  New  System. Drawing. Point (125,  15) 

Me. PrintPreviewDialogl .MinimumSize  =  New  System. Drawing. Size (375 ,  250) 

Me. PrintPreviewDialogl .Name  =  "PrintPreviewDialogl" 

Me . PrintPreviewDialogl . TransparencyKey  =  System . Drawing . Color . Empty 
Me . PrintPreviewDialogl. Visible  =  False 

1 ToolBarl 


Me . ToolBarl . Buttons .AddRange (New  System. Windows . Forms . ToolBarButton ( )  {Me. 
tlbFileNew,  Me . tlbFileOpen,  Me . tlbFileClose ,  Me . tlbFileSave,  Me . tlbFilePrint ,  Me.  X 

ToolBarButtonl ,  Me . ToolBarButton4 ,  Me . ToolBarButton3 ,  Me . ToolBarButtonS ,  Me . tlbEditCut * 
,  Me . tlbEditCopy,  Me . tlbEditPaste ,  Me .ToolBarButton2 ,  Me .ToolBarButtonS ,  Me.  X 

ToolBarButton7 ,  Me . ToolBarButton8 ,  Me . tlbFormatBold,  Me . tlbFormat Italics ,  Me.  X 

tlbFormatUnderline,  Me . ToolBarButtonl3 ,  Me .ToolBarButtonl4 ,  Me . ToolBarButtonl5 ,  Me.  kf 
ToolBarButtonl6 ,  Me . tlbFormatLeft Justified,  Me . tlbFormatCenterJustif ied.  Me.  X 


tlbFormatRight Justified}  ) 

Me . ToolBarl . DropDownArrows  =  True 
Me. ToolBarl . ImageList  =  Me . ImageListl 

Me . ToolBarl . Location  =  New  System. Drawing. Point (0 ,  0) 

Me .ToolBarl .Name  =  "ToolBarl" 

Me . ToolBarl . ShowToolTips  =  True 

Me . ToolBarl . Size  =  New  System . Drawing . Size ( 974 ,  28) 

Me. ToolBarl .Tablndex  =  1 
• 

1 tlbFileNew 

Me . tlbFileNew. Imagelndex  =  14 

Me . tlbFileNew .ToolTipText  =  "New  File" 

t 

1 tlbFileOpen 
* 

Me . tlbFileOpen. Imagelndex  =  16 

Me . tlbFileOpen. ToolTipText  =  "Open  File" 

i 

' tlbFileClose 

i 

Me  .  tlbFileClose  .  Imagelndex  ^  2 

Me . tlbFileClose . ToolTipText  =  "Close  File" 

i 

* tlbFileSave 

t 

Me . tlbFileSave. Imagelndex  =  23 

Me . tlbFileSave . ToolTipText  =  "Save" 

i 

'tlbFilePrint 

Me . tlbFilePrint . Imagelndex  =  21 

Me . tlbFilePrint . ToolTipText  =  "Print" 

i 

' ToolBarButtonl 

Me .ToolBarButtonl . Style  =  System. Windows . Forms . ToolBarButtonStyle . Separator 

i 

' ToolBarButton4 

i 

Me . Tool Bar But ton4 . Style  =  System . Windows . Forms . ToolBarButtonStyle . Separator 
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*  ToolBarButton3 

* 

Me .ToolBarButtonS .Style  =  System.Windows. Forms .ToolBarButtonStyle. Separator 

*  ToolBarButtonS 

Me .ToolBarButtonS . Style  =  System.Windows . Forms .ToolBarButtonStyle . Separator 
« 

1 tlbEditCut 

* 

Me. tlbEditCut .Imagelndex  =  4 

Me. tlbEditCut .ToolTipText  =  "Cut" 

■ 

*  tlbEditCopy 

Me. tlbEditCopy. Imagelndex  =  3 

Me. tlbEd it Copy. ToolTipText  =  "Copy” 

i 

*  tlbEditPaste 

i 

Me. tlbEditPaste. Imagelndex  =  20 

Me . tlbEditPaste .ToolTipText  -  “Paste” 

» 

*  ToolBarButton2 
< 

Me . ToolBarButton2 . Style  -  System . Windows . Forms . ToolBarButtonStyle . Separator 

*  ToolBarButtonS 

t 

Me .ToolBarButtonS .Style  -  System. Windows . Forms . ToolBarButtonStyle . Separator 

i 

1 ToolBarButton? 

« 

Me. ToolBarButton7 .Style  =  System. Windows . Forms . ToolBarButtonStyle . Separator 

i 

1 ToolBarButtonS 

i 

Me . ToolBarButtonS .Style  =  System.Windows . Forms .ToolBarButtonStyle . Separator 
» 

*  tlbFormatBold 

t 

Me. tlbFormatBold. Imagelndex  =  0 

Me. tlbFormatBold. ToolTipText  *  “Bold” 

* 

*  tlbFormatltalics 

t 

Me. tlbFormatltalics. Imagelndex  =6 

Me . tlbFormatltalics .ToolTipText  =  "Italics" 

i 

*  tlbFormatUnderline 

Me . tlbFormatUnder line. Imagelndex  =  27 

Me , tlbFormatUnderline .ToolTipText  =  "Underline" 

t 

1 ToolBarButtonl3 

f 

Me .ToolBarButtonl3 . Style  =  System.Windows . Forms .ToolBarButtonStyle . Separator 
< 

*  ToolBarButtonl4 

i 

Me .ToolBarButtonl4 . Style  =  System ; Windows . Forms .ToolBarButtonStyle . Separator 

r 

*ToolBarButtonl5 

Me. ToolBarButtonlS .Style  =  System. Windows . Forms .ToolBarButtonStyle .Separator 


32 


C:\Documents  and  Settings\t jb\My  Documents...  Studio  Projects\IRMS_Processing_OQ\Main.vb  10 
' ToolBarButtonl6 

i 

Me . ToolBarButtonl6 . Style  =  System .Windows . Forms . ToolBarButtonStyle . Separator 

i 

1 tlbFormatLeft Justified 

i 

Me . tlbFormatLeft Justified. Imagelndex  =  9 

Me . tlbFormatLeft Just if ied . ToolTipText  =  "Left  Justified" 

i 

' tlbFormatCenterJustif ied 

Me . tlbFormatCenterJustif ied . Xmagelndex  =  8 

Me. tlbFormatCenterJustif ied. ToolTipText  =  "Center  Justified" 

i 

' tlbFormatRightJustif ied 

i 

Me . tlbFormatRightJustif ied. Imagelndex  =  11 

Me. tlbFormatRightJustif ied. ToolTipText  =  "Right  Justified" 

i 

* ImageListl 

* 

Me. ImageListl . ImageSize  =  New  System. Drawing. Size (16 ,  16) 

Me. ImageListl . I mageS t ream  =  CType (resources . GetObj ect ( "ImageListl . ImageStream" ) , 
System. Windows . Forms . ImageListStreamer) 

Me. ImageListl .Transparent Color  =  System. Drawing . Color .Transparent 

■ 

'  doc 

i 

Me .doc. ClDPageSettings  =  "color : True ; landscape : False ; margins : 100 , 100 , 100 , 100 ;  ^ 

papers ize :  8  50 , 1100 , TABlAHQAdAB"  &  _ 

" 1AHIAI AAoADgALgAlACAAeAAgADEAMQAgAGkAbgAuACkAI AA= " 

Me . doc . ColumnSpacingStr  =  "0.5 in" 

Me . doc . ColumnSpacingUnit . Def aultType  =  True 
Me . doc . ColumnSpacingUnit .UnitValue  =  "0.5 in" 

Me . doc . Def aultUnit  =  Cl . CIPrintDocument .UnitTypeEnum. Inch 
Me . doc . DocumentName  =  " " 

• 

* HelpProviderl 

i 

Me. HelpProviderl. HelpNamespace  =  "C:\Documents  and  Settings\t jb\My  Documents\  * 

Visual  Studio  Pro j ects\IRMS_Processing"  &  _ 

" _NC \ He Ip \ I RMS_he Ip . chm " 

i 

' Forml 

Me . AccessibleDescription  =  " " 

Me . AccessibleName  =  " " 

Me . AutoScaleBaseSize  =  New  System. Drawing . Size ( 5 ,  13) 

Me . ClientSize  -  New  System . Drawing . Size ( 974 ,  753) 

Me . Controls . Add (Me . ToolBarl ) 

Me. Icon  =  CType (resources . GetObj ect ( "$this . Icon" ) ,  System . Drawing . Icon) 

Me. IsMdiContainer  =  True 
Me. Menu  -  Me.MainMenul 
Me. Name  =  "Forml" 

Me. Text  =  "IRMS  Data  Processing" 

Me. ResumeLayout (False) 

End  Sub 

#End  Region 


Private  myColumnsOfData  As  Integer 

Private  myRowsOfData  As  Integer 

Private  lastFilterlndex  As  Integer  =  1 

Private  myManova  As  manovaexpandt jb . expandtable 

Private  myManova_p  As  manova_probabil ity . manova_p 
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Private  myPCA_Output  As  PCA_output . PCA_output_data 
Private  myLinkages  As  linkages .pdist_linkage 
Private  myClusterLinks  As  clusters_t jb.clusterlinks 
Private  myFileName  As  String 

Private  myDendrogram  As  dendrogram_tjb .dendrogram^ jb_out put 
Private  myManova_stats  As  manova_stats ,manova_stats 

Private  myManova_stats_expanded  As  manova_expand_s t a ts ,manova_expand_statistics 
Private  myManova_s tats Functions  As  manova_expand_stats ,manova_expand_statistics 
Friend  WithEvents  currentGrid  As  Cl . Win. ClFlexGrid.ClFlexGrid 

Private  Property  RowsGfDataO  As  Integer 
Get 

Return  myRowsOfData 
End  Get 

Set (ByVal  Value  As  Integer) 
myRowsOfData  =  Value 
End  Set 
End  Property 

Private  Property  ColumnsOfData ()  As  Integer 
Get 

Return  myColumnsGfData 
End  Get 

Set {ByVal  Value  As  Integer) 
myColumnsGfData  =  Value 
End  Set 
End  Property 

Private  Readonly  Property  FileNamef)  As  String 
Get 

Return  CType (myFileName ,  String) 

End  Get 

End  Property 


Dim  WithEvents  PrintDoe  As  PrintDocument 
Dim  currPage  As  Integer 
Dim  last Page  As  Integer 

Dim  rayAetiveForm  As  Form 

Public  Sub  ShowGrid (ByVal  grid  As  Cl. Win. ClFlexGrid.ClFlexGrid) 
currentGrid  =  grid 
MakeDocCMe.doc,  Nothing) 

Dim  aprev  As  New  Final_Report 

AddHandler  doc . GenerateDocument ,  New  GenerateEventHandler (AddressOf  MakeDoc) 
aprev. CIPrintPreviewl .Document  -  Me. doc 
aprev . ShowDialog { ) 

RemoveHandler  doc .GenerateDocument ,  New  GenerateEventHandler (AddressOf  MakeDoc) 
currentGrid  =  Nothing 
aprev . Dispose ( ) 

End  Sub 

Private  Sub  MakeDoc (ByVal  doc  As  CIPrintDocument,  ByVal  e  As  Gene rat eE vent Args) 

Dim  StyleText  As  New  ClDocStyle (doc) 

StyleText .ShapeLine  =  New  LineDef (Color .White ,  1} 

StyleText .ShapeFillColor  =  Color .Transparent 

StyleText . Text Al ignHor z  =  Cl . CIPrintDocument . Al ignHorzEnum . Center 
StyleText .Font  =  New  Font ("Times  New  Roman” ,  14,  FontStyle . Bold) 

StyleText .TextColor  -  Color. Black 
With  doc 

.DefaultUnit  =  Cl .CIPrintDocument . UnitTypeEnum. Mm 
. PageReader. Height  =  0 
. PageFooter. Height  -  5 

* . PageReader. RenderText. Style. TextAl ignHor z  =  Cl . CIPrintDocument . Al ignHorzEnum 

.Justify 
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' . PageHeader .RenderText .Text  =  "Page  [@@PageNo@@]  of  [@@PageCount@@j " 

. PageFooter . RenderText .Style . TextAlignHorz  =  Cl . CIPrintDocument . AlignHorzEnum. * 

Justify 

. PageFooter . RenderText . Style . TextAl ignVer t  =  Cl . Cl Pr intDocument . AlignVertEnum . 

Bottom 

. PageFooter . RenderText .Text  =  "Page  [@@PageNo@@]  of  [@@PageCount@@] H 
.  StartDocO 

. Render BlockClPr intable (currentGrid,  . BodyAreaSize . Width,  .  BodyAreaSize .  Height  kT 
,  Nothing,  StyleText) 

. EndDoc  ( ) 

End  With 
End  Sub 


Public  Sub  InternalPrintGrid (ByVal  flexgrid  As  ClFlexGrid) 

'  get  grid’s  PrintDocument  object 

Dim  pd  As  System. Drawing . Printing . PrintDocument 

pd  =  flexgrid. PrintParameters . PrintDocument () 

'  set  up  the  page  (landscape,  1.5"  left  margin) 

With  pd. Def aultPageSettings 
.Landscape  =  True 
.Margins . Left  =  150 
End  With 

*  set  up  header  and  footer  fonts 

flexgrid. PrintParameters .HeaderFont  =  New  Font(”Arial  Black",  14,  FontStyle . Bold) 
flexgrid. PrintParameters. FooterFont  =  New  Font("Arial  Narrow",  8,  FontStyle . Italic  kT 


'  preview  the  grid 

flexgrid. PrintGrid (flexgrid. Text,  PrintGridFlags . ShowPreviewDialog) 

' flexgrid. PrintGrid ( "VB  Tutorial" ,  PrintGridFlags . ShowPreviewDialog, 
*  "VB  Tutorial"  +  Chr(9)  +  Chr(9)  +  Format (DateTime .Now,  "d"), 

’  Chr ( 9 )  +  Chr ( 9 )  +  "Page  {0}  of  { 1 } ” ) 

End  Sub 


Public  Sub  CheckForExistinglnstance ( ) 

’Get  number  of  processes  of  you  program 
If  Process . GetProcessesByName  _ 

(Process .GetCurrent Process . ProcessName) . Length  >  1  Then 

MessageBox. Show  _ 

("Another  Instance  of  this  process  is  already  running",  _ 

"Multiple  Instances  Forbidden", 

MessageBoxButtons .  OK,  __ 

MessageBoxIcon. Exclamation) 

Application. Exit ( ) 

End  If 
End  Sub 

Private  Sub  mnuFileOpen_Click (ByVal  sender  As  System . Obj ect ,  ByVal  e  As  System.  kT 

EventArgs)  Handles  mnuFileOpen . Click 
Dim  OpenDlg  As  New  OpenFileDialog 
Dim  DataTable  As  New  Data_Table 

'DataTable  =  CType (Me . ActiveMdiChild,  Data_Table) 

With  OpenDlg 

.FileName  =  " " 

.Filter  =  "Comma  Separated  (*. csv) | *. csv | Text  files  ( * . txt ) | * . txt | All  files  (** 

.  * )  |  *  .  *  « 


.Filterlndex  =  1 
.  CheckFileExists 


True 
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If  .ShowDialog ( )  =  DialogResult . Cancel  Then  Return 
Try 

If  OpenDlg . Filename . EndsWith ( rt . csv" )  Then 

DataTable .DataTable , LoadGrid (OpenDlg, FileName,  FileFormatEnum, 

Text Comma ,  True ) 

DataTable.Mdi Parent  =  Me 
DataTable . Show ( ) 

End  If 

If  OpenDlg,  FileName.  EndsWith("  . txt")  Then 
Dim  txt Output  As  New  Text_Output 
txtOutput . dataReport , LoadFile (OpenDlg, FileName) 
txtOutput .MdiParent  -  Me 
txtOutput . Show ( ) 

End  If 


Catch  ex  As  Exception 

MessageBox,  Show  (ex, Message,  ’'Error  Loading  File1' ,  MessageBoxButtons ,  t 

OKCancel ,  MessageBoxIcon . Hand) 

End  Try 
End  With 

End  Sub 

Private  Sub  mnuFileSaveAs_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System. 
EventArgs)  Handles  mnuFileSaveAs .Click 

If  Me .ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 

If  Me, ActiveMdiChild, Name  =  ”Data_Table"  Then 
Dim  SaveAsBlg  As  New  SaveFileDialog 
Dim  DataTable  As  New  Data__Table 

DataTable  -  CType (Me .ActiveMdiChild,  Data_Table) 

With  SaveAsDlg 

.FileName  =  "" 

.Filter  =  ’’Comma  Separated  (*.  csv)  |  *  ,csv|  All  files  (*.*)|*.*n 
.Filterlndex  =  1 

If  .ShowDialog ( )  =  DialogResult . Cancel  Then  Return 

DataTable .DataTable. SaveGr id (SaveAsDlg. FileName,  FileFormatEnum. Text Comma,  it 

True) 

End  With 

myFileName  -  SaveAsDlg. FileName 
End  If 

If  Me .ActiveMdiChild . Name  =  "Plot"  Then 
lastFilterlndex  =  1 

Dim  myPlot  As  Plot  =  CType (Me .ActiveMdiChild,  Plot) 

Dim  sfg  As  New  SaveFileDialog 

sfg. Filter  =  "Metafiles  (* . emf ) | * . emf | "  +  "Bmp  files  {* ,bmp) | * .bmp| "  +  "Gif  it 
files  {* .gif ) | * .gif | *  +  "Jpeg  files  (* .jpg; *, jpeg) | * .jpg; *. jpegj "  +  "Png  files  (*.png)tf 
|*.png|"  +  "All  graphic  files  (* .emf ;* .bmp; * .gif ;*. jpg; * .jpeg; * .png) | * .emf ;* .bmp;* .gif 
jpg;** jpeg;*, png" 

sfg. Filterlndex  =  lastFilterlndex 
sfg.OverwritePrompt  =  True 
sfg. CheckPathExists  -  True 
sfg.RestoreDirectory  =  False 
sfg. ValidateNames  =  True 

If  sfg. ShowDialog ()  =  DialogResult .OK  Then 
Dim  fn  As  String  =  sfg. FileName 
Dim  indext  As  Integer  =  fn. LastlndexOf ( " . "c) 

If  indext  <  0  Then 

indext  =  fn. Length  +  1 
fn  +=  ”.emf" 

Else 
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indext  +=  1 
End  If 

Dim  ext  As  String  =  f n. Substring (indext ) 

Dim  imgfmt  As  ImageFormat  =  Nothing 

Select  Case  ext 
Case  "emf" 

imgfmt  =  ImageFormat . Emf 
myPlot . chart PCA . Savelmage ( f n,  imgfmt ) 

Case  "bmp" 

imgfmt  =  ImageFormat .Bmp 
Case  "gif" 

imgfmt  =  ImageFormat . Gif 

Case  "jpeg",  "jpg" 

imgfmt  =  ImageFormat . Jpeg 

Case  "png" 

imgfmt  =  ImageFormat . Png 

Case  Else 
Return 
End  Select 

lastFilterlndex  »  sfg . Filterlndex 

If  Not  imgfmt .Equals (ImageFormat . Emf )  Then 

Dim  img  As  Image  =  myPlot . chart PCA . Getlmage ( ) 
img.Save(fn,  imgfmt) 
img. Dispose ( ) 

End  If 
End  If 

sfg . Dispose ( ) 

End  If 

If  Me . ActiveMdiChild . Name  =  "barChart"  Then 
lastFilterlndex  =  1 

Dim  mybarChart  As  barChart  =  CType (Me .ActiveMdiChild,  barChart) 

Dim  sfg  As  New  SaveFileDialog 

sfg. Filter  *  "Metafiles  (* . emf ) | * . emf | "  +  "Bmp  files  ( * . bmp) | * . bmp | »  +  "Gif 
files  (*.gif)  |*.gif | "  +  "Jpeg  files  (*.  jpg;  *.  jpeg)  |  *.  jpg;  *.  jpeg  |  +  "Png  files  (*.png)* 

|  *  .  png  |  "  +  "All  graphic  files  (*.  emf  bmp  ;*  .gif  jpg;  *.  jpeg;  *  .png)  |  *.  emf  ,-*  .bmp;  *  .gif  * 
jpg; *. jpeg; * .png" 

sfg . Filterlndex  =  lastFilterlndex 
sfg. OverwritePrompt  =  True 
sfg. CheckPathExists  =  True 
sfg . RestoreDirectory  -  False 
sfg. ValidateNames  =  True 

If  sfg. ShowDialog ( )  =  DialogResult . OK  Then 
Dim  fn  As  String  =  sfg.FileName 
Dim  indext  As  Integer  =  fn. LastlndexOf ( " . "c) 

If  indext  <  0  Then 

indext  =  fn. Length  +  1 
fn  +=  ".emf" 

Else 

indext  +=  1 
End  If 

Dim  ext  As  String  =  fn . Substring (indext ) 

Dim  imgfmt  As  ImageFormat  =  Nothing 

Select  Case  ext 
Case  "emf" 

imgfmt  =  ImageFormat . Emf 
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mybarChart .chartBar .Savelmage (fn,  imgfmt) 

Case  "bmp® 

imgfmt  =  ImageFormat . Bmp 
Case  "gif" 

imgfmt  -  ImageFormat * Gif 

Case  "jpeg"#  "jpg" 

imgfmt  =  ImageFormat .Jpeg 

Case  "png" 

imgfmt  -  ImageFormat . Png 

Case  Else 
Return 
End  Select 

lastFilterlndex  =  sfg. Filterlndex 

If  Not  imgfmt .Equals (ImageFormat . Emf)  Then 

Dim  img  As  Image  =  mybarChart .chart Bar .Get Image (} 
img. Save (fn,  imgfmt) 
img. Dispose () 

End  If 
End  If 

sfg. Dispose () 

End  If 

If  Me . ActiveMdiChild.Name  -  "chartDendrogram"  Then 
lastFilterlndex  =  1 
Dim  mychart Dendrogram  As  chartDendrogram  =  CType (Me .ActiveMdiChild, 
chartDendrogram) 

Dim  sfg  As  New  SaveFileDialog 

sfg.  Filter  =  "Metafiles  (*  .  emf }  |  *  .  emf  |  "  +  "Bmp  files  (*  .bmp)  ]  *  .bmp  |  n  +  "Gif 
files  {* .gif ) | * .gif | "  *  "Jpeg  files  (*. jpg; *. jpeg) ]*. jpg;* , jpeg | "  +  "Png  files  (*.png)tf 
|*.png|"  +  "All  graphic  files  {* .emf bmp; *. gif jpg; *. jpeg; * .png) | * .emf ;* .bmp; * .gif 
;*OP9;*'  jpeg;*,  png" 

sfg. Filterlndex  =  lastFilterlndex 
sfg.OverwritePrompt  -  True 
sfg.CheckPathExists  =  True 
sfg.RestoreDirectory  =  False 
sfg. ValidateNames  =  True 

If  sfg. ShowDialog ( )  =  DialogResult .OK  Then 
Dim  fn  As  String  =  sfg.FileName 
Dim  indext  As  Integer  =  fn. LastlndexOf ( " . «c) 

If  indext  <  0  Then 

indext  =  fn. Length  +  1 
fn  -§*=  ".emf" 

Else 

indext  *=  1 
End  If 

Dim  ext  As  String  -  fn. Substring (indext) 

Dim  imgfmt  As  ImageFormat  -  Nothing 

Select  Case  ext 
Case  "emf" 

imgfmt  -  ImageFormat . Emf 

my chart Dendrogram. chDendrog ram. Savelmage (fn,  imgfmt) 

Case  "bmp" 

imgfmt  =  ImageFormat .Bmp 
Case  "gif” 

imgfmt  -  ImageFormat .Gif 
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Case  "jpeg",  "jpg" 

imgfmt  =  ImageFormat .Jpeg 

Case  "png" 

imgfmt  =  ImageFormat . Png 

Case  Else 
Return 
End  Select 

lastFilterlndex  =  sf g . Filterlndex 

If  Not  imgfmt .Equals (ImageFormat .  Emf)  Then 

Dim  img  As  Image  =  mychartDendrogram. chDendrogram. Getlmage ( ) 
img.Save(fn,  imgfmt) 
img. Dispose ( ) 

End  If 
End  If 

sfg .Dispose ( ) 

End  If 

If  Me . ActiveMdiChild.Name  =  "Text_Output "  Then 

Dim  TextOutput  As  Text_Output  -  CType (Me . ActiveMdiChild,  TextJDutput) 

Dim  saveFileDlg  As  New  SaveFileDialog 

saveFileDlg. Filter  =  "Text  files  { * . txt ) | * . txt | All  files  {*.*)|*.*H 
saveFileDlg . Filterlndex  =  1 

saveFileDlg . FileName  =  saveFileDlg . FileName 
If  saveFileDlg. ShowDialog ( )  =  DialogResult .OK  Then 

TextOutput . dataReport . SaveFile (saveFileDlg . FileName) 

End  If 

End  If 

End  Sub 

Private  Sub  mnuFileExit_Click (ByVal  sender  As  System. Obj ect ,  ByVal  e  As  System. 
EventArgs)  Handles  mnuFileExit . Click 
Application. Exit ( ) 

End  Sub 

Private  Sub  mnuHelpAbout_Click (ByVal  sender  As  System. Object,  ByVal  e  As  System. 
EventArgs)  Handles  mnuHelpAbout . Click 
Dim  AboutDlg  As  New  About 
myActiveForm  =  AboutDlg 
myAct iveForm . ShowDialog ( ) 

End  Sub 


Private  Sub  mnuFileNew_C lick (ByVal  sender  As  System. Object ,  ByVal  e  As  System.  * 

EventArgs)  Handles  mnuFileNew . Click 

Dim  DataTableMake  As  New  Make_Table 
If  DataTableMake . ShowDialog  =  DialogResult . OK  Then 

Dim  Replicates  As  String  =  DataTableMake . txtReplicateNumber . Text 
Dim  VariableNames  As  New  Variable_Names 
VariableNames . ShowDialog ( ) 

If  VariableNames .DialogResult  =  DialogResult . OK  Then 
'Get  all  of  the  data  in  grid 
Dim  i  As  Integer 

i  =  VariableNames .VariableNames .Rows .Count  -  1 
'Define  a  grid  with  all  of  the  data 

Dim  Var iableNamesList  As  New  Cl . Win . ClFlexGr id . CellRange 

VariableNamesList  -  VariableNames . VariableNames . GetCellRange (1 ,  0,  i,  0) 
'Find  out  how  many  variables  were  put  in  the  original  list  by  seeking 
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fout  any  alpha  character  followed  by  a  newline  character 
Dim  q  As  Integer  =  0 

*Find  where  the  alpha  next  to  \n  characters  are 
Dim  re  As  New  Regex( “ [a~zA-Z0-9] \xODM ) 

Dim  me  As  MatehColleetion  =  re .Matches (VariableNamesList .Clip) 

•Find  out  how  many  alpha  next  to  \n  characters  there  are 
q  =  me, Count 

*  reget  the  cell  range  based  on  this  number  {plus  the  3  {more  than  0) 
are  added  in  the  beginning 

VariableNamesList  »  VariableNames . VariableNames .GetCellRange (1,  0,  q 


0) 


1  Replace  the  \n  characters  with 
Dim  DataTable  As  New  Data_Table 
DataTable .MdiParent  =  Me 

DataTable . ColumnHeaders  =  VariableNamesList .Clip 
DataTable, Replicates  -  Replicates 
Me . ColumnsOf Data  =  CType {Replicates,  Integer) 
DataTable , Show ( ) 


that 
+  3, 


Else 

Dim  DataTable  As  New  Data_Table 

DataTable ,MdiParent  =  Me 

DataTable .Replicates  =  Replicates 

Me , ColumnsOf Data  =  CType {Replicates,  Integer) 

DataTable . Show { ) 

End  If 

Else 

Dim  Replicates  As  String  =  DataTableMake . txtReplicateNumber . Text 

Dim  DataTable  As  New  Data_Table 

DataTable .MdiParent  -  Me 

DataTable . Replicates  =  Replicates 

Me. ColumnsOf Data  =  CType {Replicates ,  Integer) 

DataTable . Show ( ) 

End  If 

End  Sub 

Private  Sub  mnuFileProperties_Click {ByVal  sender  As  System, Object ,  ByVal  e  As  System, 
EventArgs)  Handles  mnuFileProperties . Click 
Dim  Properties  As  New  Properties 
Properties .MdiParent  =  Me 
Properties . Show { ) 

If  Properties .DialogResult  =  DialogResult . OK  Or  Properties .DialogResult  - 
DialogResult . Cancel  Then 
Return 
End  If 
Return 
End  Sub 

Private  Sub  Forml_Load (ByVal  sender  As  System. Object,  ByVal  e  As  System, EventArgs) 
Handles  MyBase.Load 
End  Sub 

Private  Sub  mnuFormatCells_Click {ByVal  sender  As  System. Object ,  ByVal  e  As  System. 
EventArgs)  Handles  mnuFormatCel Is .Click 
End  Sub 

Private  Sub  mnuFormatCellsFont_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System. 
EventArgs)  Handles  mnuFormatCellsFont . Click 
If  Me . ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 

If  Me  .ActiveMdiChild  .Name  =  nData_Table,!  Then 
Dim  DataTable  As  Data_Table 
Dim  SelectedFont  As  Font 

DataTable  =  CType (Me .ActiveMdiChild,  Data_Table) 

Dim  Selection  As  CellRange 
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Selection  =  DataTable . DataTable . Selection 
Dim  FontDlg  As  New  FontDialog 
If  FontDlg. ShowDialog  =  DialogResult . OK  Then 
SelectedFont  =  FontDlg. Font 
Selection. StyleNew. Font  -  SelectedFont 
End  If 
End  If 
End  Sub 

Private  Sub  mnuHelpProgramHelp_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System. 
EventArgs)  Handles  mnuHelpProgramHelp . Click 

Help . ShowHelp (Me,  HelpProviderl . HelpNamespace) 

End  Sub 

Private  Sub  mnuWindowTile_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System. 
EventArgs)  Handles  mnuWindowTile . Click 

Me . LayoutMdi ( System . Windows . Forms . MdiLayout . Ti leVert ical ) 

End  Sub 


Private  Sub  mnuFileClose_Click (ByVal  sender  As  System. Ob j ect ,  ByVal  e  As  System. 
EventArgs)  Handles  mnuFileClose . Click 

If  Me. ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 

Me . ActiveMdiChild . Close  ( ) 

End  Sub 

Private  Sub  mnuEditCopy_Click (ByVal  sender  As  System. Ob j ect ,  ByVal  e  As  System.  * 

EventArgs)  Handles  mnuEditCopy. Click 

If  Me .ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 

If  Me. ActiveMdiChild. Name  =  "Plot"  Then 

Dim  myPlot  As  Plot  =  CType (Me . ActiveMdiChild,  Plot) 
myPlot . chart PCA . Savelmage { ImageFormat . Emf ) 

End  If 

If  Me. ActiveMdiChild. Name  =  "chartDendrogram"  Then 

Dim  myDendrogram  As  chartDendrogram  =  CType (Me .ActiveMdiChild,  chartDendrogram * 

myDendrogram . chDendrogram . Savelmage ( ImageFormat . Emf ) 

End  If 

If  Me .ActiveMdiChild . Name  =  "barChart"  Then 

Dim  mybarChart  As  barChart  =  CType (Me .ActiveMdiChild,  barChart) 
mybarChart . chartBar . Savelmage (ImageFormat . Emf) 

End  If 

If  Me. ActiveMdiChild. Name  =  "Text_Output "  Then 

Dim  myTextOutput  As  Text_Output  =  CType (Me . ActiveMdiChild,  Text_Output) 

Dim  Selection  As  String  =  myTextOutput . dataReport . SelectedText 
Clipboard. SetDataOb j ect (Selection) 

End  If 

If  Me .ActiveMdiChild. Name  =  MData_TableH  Then 
Dim  DataTable  As  Data_Table 

DataTable  =  CType (Me .ActiveMdiChild,  Data_Table) 

Clipboard. SetDataOb j ect (DataTable . DataTable . Clip) 

End  If 
End  Sub 

Private  Sub  mnuEditPaste_Click (ByVal  sender  As  System . Ob j ect ,  ByVal  e  As  System. 
EventArgs)  Handles  mnuEditPaste . Click 

If  Me .ActiveMdiChild  Is  Nothing  Then 
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Return 
End  If 

If  Me . ActiveMdiChild.Name  =  MData_Table®  Then 
Dim  DataTable  As  Data_Table 

DataTable  =  CType (Me .Act iveMdiChild,  Data_Table) 

Dim  data  As  IDataObjeet  -  Clipboard. GetDataObjeet (} 

If  data.GetDataPresent (DataFormats .Text )  Then 
*  there  is,  so  paste  it 

DataTable .DataTable. Select (DataTable .DataTable. Row,  DataTable . DataTable .  *£ 

Col,  DataTable. DataTable. Rows. Count  -  1,  DataTable . DataTable . Cols . Count  -  1,  False) 
DataTable. DataTable. Cl ip  =  CType (data.GetData (DataFormats .Text) ,  String) 
DataTable. DataTable. Select (DataTable. DataTable. Row,  DataTable. DataTable. 

Col) 

End  If 
End  If 

End  Sub 

Private  Sub  mnuEditCut_Click {ByVal  sender  As  System .Object ,  ByVal  e  As  System.  & 

EventArgs)  Handles  mnuEditCut . Click 

If  Me.ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 

If  Me. ActiveMdiChild.Name  =  nData_Table**  Then 
Dim  DataTable  As  Data_Table 

DataTable  -  CType (Me .Act iveMdiChild,  Data_Table) 

Clipboard. SetDataObject (DataTable .DataTable .Clip) 

Dim  selected  As  CellRange 

selected  =  DataTable .DataTable . Selection 
selected. Data  =  Nothing 
End  If 

End  Sub 

Private  Sub  mnuEditDelete_Click (ByVal  sender  As  System. Object,  ByVal  e  As  System.  af 

EventArgs)  Handles  mnuEditDelete . Click 

If  Me.ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 

If  Me. ActiveMdiChild.Name  =  “Data_TabIeH  Then 
Dim  DataTable  As  Data_Table 

DataTable  =  CType (Me .Act IveMdiChild,  DataTable) 

Dim  selected  As  CellRange 

selected  =  DataTable .DataTable. Selection 
selected. Data  =  Nothing 
End  If 
End  Sub 

Private  Sub  mnuDeleteTable_Click (ByVal  sender  As  System. Object,  ByVal  e  As  System. 
EventArgs)  Handles  mnuDeleteTable . Click 
Dim  DataTable  As  Data_Table 
If  Me.ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 

If  Me. ActiveMdiChild.Name  =  "DataTable**  Then 

DataTable  =  CType (Me .Act iveMdiChild,  Data_Table) 

Dim  selectedColumns  As  CellRange 

selectedColumns  =  DataTable. DataTable. Selection 

Dim  selectedColumnLower  As  Integer  -  selectedColumns . cl 

Dim  selectedColumnUpper  As  Integer  =  selectedColumns . c2 

Dim  columnRange  As  ColumnCol lection 

columnRange  ^  DataTable . DataTable . Cols 

columnRange. DefaultSize  =  70 

Dim  columnCount  As  Integer 

For  columnCount  =  selectedColumnLower  To  selectedColumnUpper 
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columnRange . Remove (columnCount ) 

Next 
End  If 
End  Sub 

Private  Sub  WindowCloseAll_Click {ByVal  sender  As  System. Object ,  ByVal  e  As  System.  X 
EventArgs)  Handles  WindowCloseAll . Click 

Dim  ChildWindows  As  Integer 
Dim  MdiChildren  As  Integer 

ChildWindows  =  Me .MdiChildren. GetLength(O) 

For  MdiChildren  -  1  To  ChildWindows 
Me . ActiveMdiChild . Close ( ) 

Next 
End  Sub 

Private  Sub  mnuArrangelcons^Click (ByVal  sender  As  System. Ob j ect ,  ByVal  e  As  System.  \l 
EventArgs)  Handles  mnuArrangel cons . Click 

End  Sub 

Private  Sub  mnuWindowCascade_Cl ick (ByVal  sender  As  System. Object ,  ByVal  e  As  System.  \t 
EventArgs)  Handles  mnuWindowCascade . Cl ick 
End  Sub 

Private  Sub  mnuInsertColumns_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System. 
EventArgs)  Handles  mnu Insert Columns . Click 
If  Me .ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 

Dim  DataTable  As  Data_Table 

If  Me  .ActiveMdiChild  .Name  =  "Data_Table"  Then 

DataTable  =  CType (Me .ActiveMdiChild,  Data_Table) 

Dim  selectedColumns  As  CellRange 

selectedColumns  =  DataTable . DataTable . Selection 

Dim  selectedColumnLower  As  Integer  =  selectedColumns . cl 

Dim  selectedColumnUpper  As  Integer  -  selectedColumns . c2 

Dim  columnRange  As  ColumnCol lection 

columnRange  -  DataTable . DataTable . Cols 

columnRange . DefaultSize  =  70 

Dim  columnCount  As  Integer 

For  columnCount  =  selectedColumnLower  To  selectedColumnUpper 
columnRange . Insert (columnCount) 

Next 
End  If 
End  Sub 

ftRegion  "  Toolbars  " 

Private  Sub  ToolBarl_ButtonCl ick (ByVal  sender  As  System. Ob j ect ,  ByVal  e  As  System.  * 
Windows . Forms . ToolBarButtonClickEventArgs )  Handles  ToolBarl . ButtonClick 
Select  Case  ToolBarl . Buttons . IndexOf (e . Button) 

Case  0 

*  New 

Dim  DataTableMake  As  New  Make_Table 
If  DataTableMake . ShowDialog  =  DialogResult . OK  Then 

Dim  Replicates  As  String  =  DataTableMake . txtReplicateNumber . Text 
Dim  Var iableNames  As  New  Var iable_Names 
VariableNames . ShowDialog ( ) 

If  VariableNames .DialogResult  -  DialogResult . OK  Then 
'Get  all  of  the  data  in  grid 
Dim  i  As  Integer 

i  =  VariableNames . VariableNames . Rows . Count  -  1 
'Define  a  grid  with  all  of  the  data 

Dim  VariableNamesList  As  New  Cl . Win . ClFlexGrid . CellRange 
VariableNamesList  =  VariableNames . VariableNames . GetCellRange (1 ,  0,  * 
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i,  0) 
seeking 


0)  that 
q  +  3, 


‘Find  out  how  many  variables  were  put  in  the  original  list  by  ^ 


‘out  any  alpha  character  followed  by  a  newline  character 
Dim  q  As  Integer  =  0 

‘Find  where  the  alpha  next  to  \n  characters  are 
Dim  re  As  New  RegexC” [a-zA-2] \x0D“) 

Dim  me  As  HatchCollection  -  re, Matches {VariableNamesList .Clip) 
‘Find  out  how  many  alpha  next  to  \n  characters  there  are 
q  =  me. Count 

‘reget  the  cell  range  based  on  this  number  (plus  the  3  (more  than 
are  added  in  the  beginning 

VariableNamesList  =  VariableNames . VariableNames .GetCellRange (1, 


0) 


•Replace  the  \n  characters  with 
Dim  DataTable  As  New  Data_Table 
DataTable . MdiParent  =  Me 

DataTable , ColumnHeaders  =  VariableNamesList . Clip 
DataTable .Replicates  =  Replicates 
DataTable . Show ( ) 


Else 

Dim  DataTable  As  New  Data_Table 
DataTable. MdiParent  =  Me 
DataTable. Replicates  -  Replicates 
DataTable . Show ( ) 

End  If 

Else 

Dim  Replicates  As  String  =  DataTableMake . txtReplicateNumber .Text 

Dim  DataTable  As  New  Data_Table 

DataTable .MdiParent  -  Me 

DataTable. Replicates  =  Replicates 

DataTable . Show ( ) 

End  If 

Case  1 

•Open 

Dim  OpenDlg  As  New  OpenFileDialog 
With  OpenDlg 

.FileName  =  **“ 

.Filter  =  “Text  files  (*. txt) | *. txt | Comma  Separated  ( * . csv) | * . xls | All 

files  (*  .  *)  | * . *“ 

.Filterlndex  =  1 
.CheckFileExists  =  True 

If  .  ShowDialogO  =  DialogResult .Cancel  Then  Return 
End  With 

Case  2 

*  Close 

If  Me . ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 

Me.  ActiveMdiChild. Close  () 

Case  3 

•Save 
Case  4 

*  Print 
Case  9 

•Cut 

If  Me .ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 

If  Me. ActiveMdiChild. Name  =  “Data_Table”  Then 
Dim  DataTable  As  Data_Table 

DataTable  =  CType (Me . ActiveMdiChild,  Data_Table) 

Clipboard . SetDataOb j  ect (DataTable . DataTable . Clip ) 

Dim  selected  As  CellRange 
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selected  =  DataTable .DataTable . Selection 
selected. Data  =  Nothing 
End  If 
Case  10 

1  Copy 

If  Me . ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 

If  Me .ActiveMdiChild. Name  -  "Plot"  Then 

Dim  myPlot  As  Plot  =  CType (Me . ActiveMdiChild,  Plot) 
myPlot . chartPCA. Savelmage (ImageFormat .Emf ) 

End  If 

If  Me .ActiveMdiChild. Name  =  "chartDendrogram"  Then 

Dim  myDendrogram  As  chartDendrogram  =  CType (Me . ActiveMdiChild ,  y? 

chartDendrogram) 

myDendrogram . chDendrogram . Savelmage ( ImageFormat . Emf ) 

End  If 

If  Me -ActiveMdiChild .Name  =  "barChart"  Then 

Dim  mybarChart  As  barChart  =  CType (Me. ActiveMdiChild,  barChart) 
mybarChart . chartBar . Savelmage ( ImageFormat . Emf ) 

End  If 

If  Me .ActiveMdiChild . Name  =  "Text_Output "  Then 

Dim  myTextOutput  As  Text_Output  =  CType (Me . ActiveMdiChild,  Text_Outputtf 

) 

Dim  Selection  As  String  =  myTextOutput . dataReport . SelectedText 
Clipboard . SetDataObj  ect (Selection) 

End  If 

If  Me .ActiveMdiChild . Name  =  "Data_Table"  Then 
Dim  DataTable  As  DataTable 

DataTable  =  CType (Me .ActiveMdiChild,  Data_Table) 

Clipboard . SetDataObj  ect (DataTable . DataTable . Clip) 

End  If 


Case  11 


' Paste 

If  Me .ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 

If  Me .ActiveMdiChild . Name  =  "Data  Table "  Then 
Dim  DataTable  As  Data_Table 

DataTable  =  CType (Me . ActiveMdiChild,  Data__Table) 

Dim  data  As  IDataObject  =  Clipboard. GetDataObj ect ( ) 

If  data. GetDataPresent (DataFormats .Text)  Then 
'  there  is,  so  paste  it 

DataTable . DataTable . Select (DataTable . DataTable . Row,  DataTable . 
DataTable. Col,  DataTable .DataTable .Rows . Count  -  1,  DataTable . DataTable . Cols . Count  - 
False) 

DataTable. DataTable. Clip  =  CType (data . GetData (DataFormats . Text ) 

String) 

DataTable .DataTable. Select (DataTable . DataTable . Row,  DataTable. 

DataTable . Col) 

End  If 
End  If 
Case  16 

•Bold 

If  Me .ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 


If  Me . ActiveMdiChild. Name  =  "Data_Table"  Then 
Dim  DataTable  As  Data_Table 

DataTable  =  CType (Me .ActiveMdiChild,  Data_Table) 

Dim  CellRange  As  CellRange  =  DataTable . DataTable . Selection ( ) 


1, 
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Dim  cellStyle  As  CellStyle  =  DataTable .DataTable .Styles .Focus 

If  cellstyle . Font .Bold  -  True  And  Cellstyle . Font . Italic  =  True  And  v? 
CellStyle . Font .underline  =  True  Then 

cellstyle . Font  =  New  Font (DataTable .DataTable . Font ,  FontStyle.  & 
Regular  Or  FontStyle. Italic  Or  FontStyle . Underline) 

CellRange . StyleNew. Font  -  cellstyle .Font 


Elself  cellstyle. Font .Bold  =  True  And  Cellstyle. Font . Italic  =  True  Andtf 
Cellstyle. Font. under line  =  False  Then 

cellstyle .Font  =  New  Font (DataTable .DataTable. Font,  FontStyle. 
Regular  Or  FontStyle . Italic) 

CellRange . StyleNew. Font  =  cellstyle . Font 

Elself  cellstyle . Font .Bold  =  True  And  Cellstyle . Font . Italic  *  False 
And  Cell Style. Font .underline  =  True  Then 

cellstyle . Font  =  New  Font (DataTable .DataTable . Font ,  FontStyle.  & 
Regular  Or  FontStyle .Underline) 

Cell Range. StyleNew. Font  =  cellstyle . Font 


Elself  cellstyle. Font .Bold  =  True  And  Cellstyle . Font . Italic  =  False 
And  Cellstyle. Font .underline  =  False  Then 

cellstyle . Font  =  New  Font (DataTable .DataTable . Font ,  FontStyle. 

Regular) 

Cell Range. StyleNew. Font  =  cellstyle . Font 


Elself  cellStyle.Font .Bold  =  False  And  Cellstyle . Font . Italic  =  True 
And  Cellstyle . Font .underline  =  True  Then 

cellStyle.Font  =  New  Font (DataTable .DataTable . Font ,  FontStyle .Bold 
Or  FontStyle . Italic  Or  FontStyle . Underline) 

CellRange . StyleNew. Font  =  cellStyle.Font 


Elself  cellStyle.Font .Bold  =  False  And  Cellstyle . Font . Italic  =  True  yf 
And  CellStyle.Font .underline  =  False  Then 

cellStyle.Font  =  New  Font (DataTable .DataTable . Font ,  FontStyle.Boldtf 
Or  FontStyle . Italic) 

CellRange . StyleNew. Font  =  cellStyle.Font 


Elself  cellstyle. Font .Bold  =  False  And  Cellstyle .Font . Italic  -  False 
And  CellStyle.Font .underline  =  True  Then 

cellStyle.Font  -  New  Font (DataTable .DataTable .Font,  FontStyle . Bold 
Or  FontStyle. Underline) 

CellRange . StyleNew. Font  -  cellStyle.Font 


Elself  cellstyle .Font .Bold  =  False  And  Cellstyle . Font . Italic  =  False 
And  Cellstyle . Font .underline  =  False  Then 

cellStyle.Font  -  New  Font (DataTable .DataTable . Font ,  FontStyle  .Bold*^ 


) 


CellRange . StyleNew. Font  =  cellStyle.Font 


End  If 
End  If 


Case  17 

1  Italics 

If  Me. ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 

If  Me .ActiveMdiChild. Name  =  ^Data^able"  Then 
Dim  DataTable  As  Data_Table 

DataTable  -  CType (Me .ActiveMdiChild,  Data_Table) 

Dim  CellRange  As  CellRange  -  DataTable . DataTable . Selection 
Dim  cellstyle  As  Cellstyle  =  DataTable . DataTable .Styles . Focus 
If  cellstyle. Font .Italic  -  True  And  Cellstyle . Font .Bold  =  True  And 
Cellstyle . Font . underline  =  True  Then 

cellStyle.Font  =  New  Font (DataTable .DataTable .Font ,  FontStyle. 
Regular  Or  FontStyle .Bold  Or  FontStyle .Underline) 
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CellRange. StyleNew . Font  =  cellStyle.Font 

Elself  cellStyle. Font .Italic  =  True  And  Cellstyle . Font . Bold  =  True  And* 
CellStyle . Font .underline  =  False  Then 

cellstyle . Font  =  New  Font (DataTable . DataTable . Font ,  FontStyle.  X 
Regular  Or  FontStyle . Bold) 

Cel IRange . StyleNew. Font  -  cellstyle . Font 

Elself  cellStyle.Font .Italic  =  True  And  Cellstyle . Font . Bold  =  False 
And  Cellstyle . Font .underline  =  True  Then 

cellStyle.Font  =  New  Font (DataTable .DataTable . Font ,  FontStyle.  X 
Regular  Or  FontStyle .Underline) 

Cel IRange . StyleNew. Font  =  cellStyle.Font 


And  Cellstyle 
Regular) 


Elself  cellstyle. Font . Italic  =  True  And  Cellstyle . Font . Bold  =  False 
.  Font .underline  =  False  Then 

cellStyle.Font  =  New  Font (DataTable . DataTable . Font ,  FontStyle. 


CellRange .StyleNew. Font  =  cellStyle.Font 


Elself  cellStyle.Font. Italic  «  False  And  Cellstyle . Font . Bold  =  True  \t 
And  Cellstyle. Font. underline  =  True  Then 

cellStyle.Font  =  New  Font (DataTable .DataTable . Font,  FontStyle.  * 
Italic  Or  FontStyle . Bold  Or  FontStyle . Underline) 

CellRange . StyleNew . Font  =  cellStyle.Font 


Elself  cellstyle . Font . Italic  »  False  And  Cellstyle . Font . Bold  =  True  x 
And  Cellstyle . Font . underline  -  False  Then 

cellStyle.Font  =  New  Font (DataTable . DataTable . Font ,  FontStyle.  X 
Italic  Or  FontStyle . Bold) 

CellRange . StyleNew. Font  =  cellStyle.Font 


Elself  cellstyle . Font . Italic  =  False  And  Cellstyle . Font . Bold  =  False 
And  Cellstyle . Font .underline  =  True  Then 

cellStyle.Font  =  New  Font (DataTable . DataTable . Font ,  FontStyle. 
Italic  Or  FontStyle .Underline) 

CellRange . StyleNew. Font  =  cellStyle.Font 


And  CellStyl 
Italic) 


Elself  cellStyle.Font .Italic  =  False  And  Cells tyle . Font . Bold  =  False 
e . Font . underline  =  False  Then 

cellStyle.Font  =  New  Font (DataTable . DataTable . Font ,  FontStyle. 


CellRange . StyleNew. Font  =  cellStyle.Font 


End  If 
End  If 


Case  18 

1  Underline 

If  Me . ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 

If  Me. ActiveMdiChild. Name  =  "DataJTable"  Then 
Dim  DataTable  As  Data_Table 

DataTable  =  CType (Me .ActiveMdiChild,  Data_Table) 

Dim  CellRange  As  CellRange  =  DataTable .DataTable . Selection 
Dim  cellstyle  As  Cellstyle  =  DataTable . DataTable . Styles . Focus 
If  cellStyle.Font .Underline  =  True  And  Cellstyle . Font . Italic  =  True 
And  CellStyle.Font .Bold  =  True  Then 

cellStyle.Font  =  New  Font (DataTable . DataTable . Font ,  FontStyle.  * 
Regular  Or  FontStyle . Italic  Or  FontStyle . Bold) 

CellRange. StyleNew. Font  =  cellStyle.Font 

Elself  cellstyle . Font .Underline  =  True  And  Cellstyle . Font . Italic  = 

True  And  Cellstyle . Font . Bold  =  False  Then 

cellStyle.Font  =  New  Font (DataTable . DataTable . Font ,  FontStyle. 
Regular  Or  FontStyle . Ital ic) 
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CellRange.StyleNew.Font  =  cellstyle . Font 


Elself  cellStyle . Font .Underline  =  True  And  Cellstyle . Font . Italic  = 
False  And  Cellstyle .Font .Bold  =  True  Then 

cellstyle . Font  =  New  Font (DataTable .DataTable . Font ,  Font Style. 
Regular  Or  FontStyle . Bold) 

CellRange.StyleNew.Font  =  cellstyle . Font 


Elself  cell Style. Font. Under line  =  True  And  Cellstyle . Font . Italic  = 
False  And  Cellstyle . Font . Bold  =  False  Then 

cellstyle . Font  =  New  Font (DataTable .DataTable . Font f  FontStyle. 


Regular) 


CellRange .StyleNew. Font  =  cellstyle . Font 


Elself  cellstyle. Font .Underline  =  False  And  Cellstyle . Font . Italic  = 
True  And  Cellstyle . Font , Bold  =  True  Then 

cellstyle . Font  -  New  Font (DataTable . DataTable . Font ,  FontStyle . 
Underline  Or  FontStyle . Italic  Or  FontStyle . Bold) 

CellRange.StyleNew.Font  =  cellstyle .Font 


Elself  cellstyle . Font .Underline  =  False  And  Cellstyle . Font . Italic  = 
True  And  Cellstyle . Font .Bold  =  False  Then 

cellstyle. Font  -  New  Font (DataTable . DataTable . Font ,  FontStyle. 
Underline  Or  FontStyle . Italic) 

CellRange.StyleNew.Font  -  cellstyle . Font 

Elself  cellstyle . Font .Underline  =  False  And  Cellstyle . Font . Italic  = 
False  And  Cellstyle . Font . Bold  =  True  Then 

cellstyle . Font  =*  New  Font (DataTable .DataTable . Font ,  FontStyle. 
Underline  Or  FontStyle . Bold) 

CellRange.StyleNew.Font  -  cellstyle . Font 


Elself  cellstyle. Font .Underline  -  False  And  Cellstyle . Font . Italic  = 
False  And  Cellstyle .  Font .  Bold  ■*  False  Then 

cellstyle. Font  =  New  Font (DataTable .DataTable . Font ,  FontStyle. 


Underline) 


CellRange . StyleNew. Font  =  cellstyle . Font 


End  If 


End  If 


Case  23 

'Left  Justified 

If  Me .AetiveMdiChild  Is  Nothing  Then 
Return 
End  If 

If  Me. AetiveMdiChild. Name  =  MData_TableM  Then 
Dim  DataTable  As  Data_Table 

DataTable  =  CType (Me .AetiveMdiChild,  Data_Table) 

Dim  CellRange  As  CellRange  =  DataTable .DataTable .Selection 
Dim  cellstyle  As  Cellstyle  *  DataTable .DataTable . Styles . Focus 
cellstyle .Text Align  =  Text AlignEnum. Left Center 
CellRange .StyleNew. TextAlign  =  cellstyle. TextAlign 

End  If 


yr 


kf 


Case  24 

'Center  Justified 

If  Me .AetiveMdiChild  Is  Nothing  Then 
Return 
End  If 

If  Me. AetiveMdiChild. Name  =  flData_Table"  Then 
Dim  DataTable  As  Data_Table 

DataTable  -  CType (Me . AetiveMdiChild,  Data_Table) 

Dim  CellRange  As  CellRange  =  DataTable . DataTable . Selection 
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Dim  cellStyle  As  CellStyle  =  DataTable . DataTable . Styles . Focus 
cellStyle .TextAlign  =  TextAlignEnum. CenterCenter 
CellRange . StyleNew . TextAlign  -  cellStyle . TextAlign 

End  If 

Case  25 

'Right  Justified 

If  Me .ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 

If  Me . ActiveMdiChild. Name  =  "Data_Table"  Then 
Dim  DataTable  As  Data_Table 

DataTable  =  CType (Me .ActiveMdiChild,  DataTable) 

Dim  CellRange  As  CellRange  =  DataTable . DataTable . Selection 
Dim  cellStyle  As  CellStyle  =  DataTable . DataTable . Styles . Focus 
cellStyle . TextAlign  =  TextAlignEnum. RightCenter 
CellRange. StyleNew. TextAlign  =  cellStyle . TextAlign 

End  If 

End  Select 
End  Sub 

#End  Region 

Private  Sub  mnuFileSave_Click (ByVal  sender  As  System . Ob j ect ,  ByVal  e  As  System.  a i 

EventArgs)  Handles  mnuFileSave . Click 

If  Me .ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 

Dim  SaveAsDlg  As  New  SaveFileDialog 

Dim  DataTable  As  New  Data_Table 

If  Me .ActiveMdiChild. Name  =  "Data_Table"  Then 

DataTable  =  CType (Me . ActiveMdiChild,  Data_Table) 

If  myFileName  Is  Nothing  Then 
With  SaveAsDlg 

.FileName  =  "" 

.Filter  =  "Comma  Separated  (* . csv) | * .csv| All  files  {*. *))*.*" 
.Filterlndex  =  1 

If  . ShowDialog ( )  =  DialogResult . Cancel  Then  Return 

DataTable . DataTable . SaveGrid (SaveAsDlg . FileName ,  FileFormatEnum. 

TextComma,  True) 

End  With 

myFileName  =  SaveAsDlg . FileName 
End  If 

DataTable . DataTable . SaveGrid (myFileName ,  FileFormatEnum . TextComma ,  True ) 

End  If 

End  Sub 

Private  Sub  doc_NewPageSetup (ByVal  sender  As  Cl . CIPrintDocument . CIPrintDocument ,  ByVal 
e  As  Cl. CIPrintDocument. NewPageSetupEventArgs)  Handles  doc .NewPageSetup  ' ClDocumentl . 
NewPageStarted . NewPageSetup 

If  Me . doc . CurrentPage  =  2  Then 
With  Me . doc . PageHeader 

.RenderText .Style . TextAlignHorz  =  Cl . CIPrintDocument .AlignHorzEnum. Right 
.RenderText .Text  •  "Header  -  Page  [@@PageNo@@]  of  [@@PageCount@@] " 

.Height  =  1 
End  With 
End  If 
End  Sub 


Private  Sub  mnuFilePrint_Click (ByVal  sender  As  System. Obj ect ,  ByVal  e  As  System. 
EventArgs)  Handles  mnuFilePrint . Click 
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If  Me. ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 


If  Me. ActiveMdiChild. Name  =  HText_Output "  Then 

Dim  TextOutput  As  Text_Output  =  CType (Me. ActiveMdiChild,  TextOutput) 

Dim  text  As  String  -  TextOutput . InputText , ToString 
Dim  s  As  Cl .CIPrintDocument . ClDocStyle 
Dim  doc  As  New  CIPrintDocument 
With  Me. doc 

.Style. Font  =  New  Font(8Times  New  Roman" ,  12,  FontStyle. Regular) 

With  .PageReader 

1 .RenderText .Style. Text AlignHorz  -  Cl . CIPrintDocument . AlignHorzEnum.  it 

Right 

1 . RenderText . Text  =  "Header  -  Page  [@@PageNo@@]  of  [@@PageCount@@3 " 

. Height  =  0 
End  With 

With  .PageFooter 

.RenderText. Style. Text AlignHorz  =  Cl .CIPrintDocument .AlignHorzEnum.  1 t 

Right 

.RenderText .Style. Text AlignVert  =  Cl . CIPrintDocument . AlignVertEnum.  it 

Bottom 

.RenderText .Text  =  "Footer  Page  [@@PageNo@@]  of  [@@PageCount@@] * 

End  With 
. StartDoc ( ) 

. Style .TextColor  =  Color. Black 

1 .Style. Text AlignHorz  =  Cl. CIPrintDocument .AlignHorzEnum. Justify 
. RenderBlockText ( text ) 

.Style .Text AlignHorz  =  Cl . CIPrintDocument .AlignHorzEnum. Left 
. EndDoc ( ) 

End  With 

Dim  aprev  As  New  Final_Report 

aprev. Cl Print Previewl .Document  =  Me. doc 

aprev. ShowDialog ( ) 

aprev. Dispose {) 

End  If 

If  Me. ActiveMdiChild. Name  =  "Data_Table"  Then 

Dim  DataTable  As  Data_Table  =  CType (Me .ActiveMdiChild,  Data_Table) 

•Me. Internal PrintGrid (DataTable .DataTable) 

•Count  the  number  of  filled  in  columns  (i.e.  how  many  variables). 

Dim  k,  1,  m  As  Integer 

Dim  ColumnData  As  CellRange 

Dim  AdjacentColumnData  As  CellRange 

Dim  rel  As  New  Regex  ("  10-9  ]  11 ) 

For  k  =  3  To  CType (DataTable .DataTable . Cols .Count ,  Integer)  -  2 

ColumnData  -  DataTable .DataTable .GetCellRange (1,  k,  CType (DataTable .  it 

DataTable . Rows . Count ,  Integer)  -  1,  k) 

•provide  a  counter  to  make  sure  all  columns  are  contiguous 

AdjacentColumnData  =  DataTable . DataTable .GetCellRange (1 ,  k  +  1,  CType (  it 
DataTable .DataTable . Rows . Count ,  Integer)  -  1,  k  +  1) 

If  Not  rel . Matches (ColumnData . Clip) . Count  =  0  Then 
1-1  +  1 
End  If 

•count  if  columns  are  not  adjacent  (i.e.  any  empty  columns  in  between) 

If  Not  rel .Matches (ColumnData .Clip) .Count  =  0  And  Not  rel.Matches(  it 

AdjacentColumnData . Clip) . Count  =  0  Then 
m  =  m  +  1 
End  If 

Next 

•Count  last  column  if  it  has  data  in  it 
k  -  k  +  1 
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If  Not  rel .Matches (ColumnData . Clip) . Count  =  0  Then 
1  =  1  +  1 
End  If 

Dim  Replicates  As  Integer  =  CType (DataTable . Replicates ,  Integer) 

If  Replicates  =  Nothing  Then 

Dim  ReplicateCells  As  CellRange 

ReplicateCells  =  DataTable . DataTable . GetCellRange (1 ,  2,  CType {DataTable . 
DataTable . Rows . Count  -  1,  Integer),  2) 

Dim  maxReplicate  As  Integer 

maxReplicate  =  CType (DataTable . DataTable .Aggregate (AggregateEnum. Max, 
ReplicateCells,  AggregateFlags .None) ,  Integer) 

Replicates  =  maxReplicate 

End  If 

Dim  endCell  As  Integer 
Dim  SampleCells  As  CellRange 

For  m  =  1  To  DataTable .DataTable . Rows . Count  -  1  Step  Replicates 
If  CType (DataTable .DataTable (m,  1),  String)  =  " "  Then 
endCell  =  m 

m  =  DataTable . DataTable . Rows . Count 
End  If 

Next 

Dim  rows,  columns  As  Integer 
For  rows  =  0  To  endCell  -  1 

DataTable .DataTable .Rows (rows) .Visible  =  True 

Next 

For  rows  =  endCell  To  DataTable . DataTable . Rows . Count  -  1 
DataTable .DataTable . Rows (rows) .Visible  =  False 

Next 

For  columns  =  3  +  1  To  DataTable .DataTable . Cols . Count  -  1 
DataTable .DataTable . Cols (columns) .Visible  =  False 

Next 

'PUT  IN  TO  TEST  FORMATTING 
Dim  doc  As  New  CIPrintDocument 
currentGrid  =  DataTable . DataTable 
MakeDoc (Me . doc ,  Nothing) 

' MakeFlexPrintDoc (Me . doc ,  Nothing) 

Dim  aprev  As  New  Final_Report 

AddHandler  doc . GenerateDocument ,  New  GenerateEventHandler (AddressOf  MakeDoc) 
aprev. CIPrintPreviewl . Document  =  Me. doc 
aprev. ShowDialog { ) 

RemoveHandler  doc . GenerateDocument ,  New  GenerateEventHandler (AddressOf  MakeDoc 

) 

currentGrid  =  Nothing 
aprev . Dispose ( ) 

For  rows  =  endCell  To  DataTable . DataTable . Rows . Count  -  1 
DataTable . DataTable . Rows (rows ). Visible  =  True 

Next 

For  columns  =  3  +  1  To  DataTable . DataTable . Cols . Count  -  1 
DataTable .DataTable . Cols (columns) . Visible  =  True 

Next 
End  If 

If  Me . ActiveMdiChild .Name  =  ”Text_Output "  Then 

Dim  myTextOutput  As  TextOutput  =  CType (Me . ActiveMdiChild,  Text_Output) 

End  If 

If  Me . ActiveMdiChild . Name  =  "barChart"  Then 

51 


29 


C:\Documents  and  Settings\t jb\My  Documents .  . »  Studio  Projects\IRMS_Frocessing_OQ\Main. vb 

Dim  barChart  As  barchart  -  CType (Me. ActiveMdiChild,  barchart) 

Dim  doc  As  New  CIPrintDoeument 
Doc2D_bar (doe,  New  GenerateEventArgs) 

Dim  aprev  As  New  Final_Report 
AddHandler  doc .GenerateDocument ,  New  GenerateEventHandler (AddressOf  Doc2D_bar) 
aprev. CIPr in tPreviewl .Document  =  doc 
aprev . ShowDialog ( ) 

RemoveHandler  doc . GenerateDocument (  New  GenerateEventHandler (AddressOf  Doc2  ^ 

D_bar) 

aprev . Dispose ( ) 

*  barchart . chartBar . Print Chart  C  Pr intScaleEnum . ScaleToFit } 


End  If 

If  Me.ActiveMdiChild.Name  =  "chart Dendrogram"  Then 

Dim  myDendrogram  As  chartDendrogram  =  CType (Me .Act iveMdiChildf  chartDendrogram*' 

) 

Dim  doc  As  New  CIPrintDoeument 
Doc2D_dendrogram (doc.  New  GenerateEventArgs) 

Dim  aprev  As  New  Final_Report 

AddHandler  doc. GenerateDocument ,  New  GenerateEventHandler (AddressOf  Doc2  t 

D_dendr ogr am ) 

aprev. Cl PrintPreviewl .Document  =  doc 
aprev . ShowDialog ( ) 

RemoveHandler  doc .GenerateDocument ,  New  GenerateEventHandler (AddressOf  Doc2  it 
D_dendrogram) 

aprev. Dispose ( ) 

1 barChart .chartBar . Print Chart (Print ScaleEnum. ScaleToFit) 

* myDendrogram . chDendrogram . PrintChart ( PrintScaleEnum . ScaleToFit ) 

End  If 

If  Me.ActiveMdiChild.Name  =  "Plot”  Then 

Dim  myPlot  As  Plot  =  CType (Me . ActiveMdiChild,  Plot) 

Dim  doc  As  New  CIPrintDoeument 
Doc2D_Plot (doc.  New  GenerateEventArgs) 

Dim  aprev  As  New  Final_Report 

AddHandler  doc . GenerateDocument ,  New  GenerateEventHandler (AddressOf  Boc2D_Ploti^ 

) 

aprev. Cl PrintPreviewl .Document  =  doc 
aprev . ShowDialog ( ) 

RemoveHandler  doc . GenerateDocument ,  New  GenerateEventHandler (AddressOf  Doc2  it 

D_Plot) 

aprev . Dispose ( ) 

'myPlot .chart PCA. PrintChart (Print ScaleEnum. ScaleToFit) 

End  If 


End  Sub 

Private  Sub  mmiDataProcessManova_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  t 

System. EventArgs)  Handles  mnuDataProcessManova . Click 
If  Me. ActiveMdiChild  Is  Nothing  Then 

MessageBox. Show ( "You  have  no  open  data  tables  with  data  to  process”,  "Error”,  yf 
MessageBoxButtons .OK,  MessageBoxIcon . Error) 

Return 
End  If 

If  Me.ActiveMdiChild.Name  <>  ”Data_Table”  Then 

MessageBox. Show (” You  must  have  a  Data  Table  as  the  active  window  to  process  it 
data  from”,  "Error”,  MessageBoxButtons . OK,  MessageBoxIcon. Error) 

Return 
End  If 


Dim  DataTable  As  New  Data_Table 

DataTable  =  CType (Me .ActiveMdiChild,  Bata_Table) 
*Send  DataTable  to  manova  class 
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Dim  myManovaOutput  As  New  tnanova (DataTable) 

'Send  results  to  Text  Output 

If  myManovaOutput .no_Select  =  False  Then 
Return 
End  If 

Dim  myManovaTextOutput  As  New  Text_Output 
With  myManovaTextOutput 
.MdiParent  =  Me 

.Text  =  DataTable .TableName  &  "  Manova  Output  "  &  Date. Now 
. Show ( ) 

. InputText  =  myManovaOutput . rich_Text 
. dataReport . Text  =  myManovaOutput . r ich_Text 
End  With 

End  Sub 

Private  Sub  mnuDataProcessPCA__C lick  (ByVal  sender  As  System. Object ,  ByVal  e  As  System, 
EventArgs)  Handles  mnuDataProcessPCA . Click 

Dim  myPCA_Output  As  New  PCA_output . PCA_output_data 
Dim  myManova  As  New  manovaexpandt jb . expandtable 
If  Me . ActiveMdiChild  Is  Nothing  Then 

MessageBox.  Show  ( 11  You  have  no  open  data  tables  with  data  to  process",  "Error", 
MessageBoxButtons . OK,  MessageBoxIcon . Error) 

Return 
End  If 

If  Me .ActiveMdiChild. Name  <>  "Data_Table"  Then 

MessageBox. Show { "You  must  have  a  Data  Table  as  the  active  window  to  process  * 
data  from",  "Error",  MessageBoxButtons .OK,  MessageBoxIcon. Error) 

Return 
End  If 

Dim  DataTable  As  New  Data_Table 

DataTable  =  CType (Me .ActiveMdiChild,  Data_Table) 

’Send  Table  to  pea  class 

Dim  myPCAOutput  As  New  pea (DataTable ) 

'Send  output  to  Text  and  graphs 
If  myPCAOutput .no_Select  =  False  Then 
Return 
End  If 

Dim  myPCATextOutput  As  New  Text_Output 

my  PCATextOutput . Inputnewdata  =  CType (myPCAOutput . TempData ,  Array) 

With  myPCATextOutput 
.MdiParent  =  Me 

.Text  =  DataTable. TableName  &  »  PCA  Data  Output  "  &  Date. Now 
. Show ( ) 

.InputText  =  myPCAOutput . RichText 
. dataReport . Text  =  myPCAOutput .RichText 
End  With 

'Send  variance  data  to  barCHart 
Dim  BarChart  As  New  barChart 

BarChart . Input_data  =  CType (myPCAOutput . NewVariances ,  Array) 

BarChart . Samples  =  myPCAOutput . Samples 
BarChart . Variables  =  myPCAOutput . Variables 

BarChart . SampleNames  =  CType (myPCAOutput . SelectedSamples ,  Array) 

With  BarChart 

.MdiParent  =  Me 

.Text  »  DataTable .TableName  &  "  Variances" 

. Show ( ) 

End  With 

’Send  1st  two  components  to  plot 
Dim  Plot  As  New  Plot 

Plot . Input_data  =  CType (myPCAOutput . TempData,  Array) 

Plot. Samples  =  myPCAOutput . Samples 
Plot . Variables  =  myPCAOutput . Variables 
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Plot .SampleNames  -  CType (myPCAOutput . SelectedSamples,  Array) 
With  Plot 

.MdiParent  =  Me 

.Text  -  DataTable .TableName  &  "  Component  Loadings” 

. Show ( ) 

End  With 


End  Sub 

Private  Sub  mnuDataProcessCluster_Cliek (ByVal  sender  As  System. Object ,  ByVal  e  As 
System. Event Args 5  Handles  mnuDataProcessCluster .Click 
If  Me.ActiveMdiChild  Is  Nothing  Then 

MessageBox. Show ("You  have  no  open  data  tables  with  data  to  process”,  "Error", 
MessageBoxButtons . OK,  MessageBoxIcon . Error) 

Return 
End  If 

If  Me. ActiveMdiChild.Name  <>  "Data_Table"  Then 

Mess ageBox. Show ( "You  must  have  a  Data  Table  as  the  active  window  to  process 
data  from",  "Error",  MessageBoxButtons . OK,  MessageBoxIcon. Error) 

Return 
End  If 


Dim  DataTable  As  New  Data_Table 

DataTable  -  CType (Me .Act iveMdiChild,  Data_Table) 

'Run  Cluster  class 

Dim  myCluster  As  New  cluster (DataTable) 

If  myCluster ,no_Select  =  False  Then 
Return 
End  If 

'Send  data  to  txt  Output 

Dim  myClusterTextOutput  As  New  Text_Output 

myClusterText Output . Inputnewdata  =  CType (myCluster . TempData,  Array) 
With  myClusterTextOutput 

.Text  -  DataTable .TableName  &  "  Dendrogram  Output  "  &  Date. Now 
. Show { ) 

.MdiParent  =  Me 

.InputText  =  myCluster .RichText 
. dataReport . Text  =  myCluster .RichText 
End  With 

*  Send  data  to  dendrogram 

Dim  Dendrogram  As  New  chart Dendrogram 

Dendrogram. Input_dat a  -  CType (myCluster .TempData,  Array) 

Dendrogram. Samples  =  myCluster . Samples 
Dendrogram. Variables  -  myCluster .Variables 

Dendrogram. SampleNames  -  CType (myCluster . SelectedSamples ,  Array) 
Dendrogram. AxisLabe Is  =  CType (myCluster .AxisLabel ,  Array) 

With  Dendrogram 

.MdiParent  -  Me 

.Text  -  DataTable .TableName  &  "  Dendrogram" 

. Show ( ) 

End  With 


End  Sub 

Private  Sub  mnuFormatCellsColor_Click (ByVal  sender  As  System. Ob j ect ,  ByVal  e  As  System^ 
.EventArgs)  Handles  mnuFormatCellsColor. Click 
If  Me.ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 

If  Me.ActiveMdiChild. Name  =  "Data  Table"  Then 
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Dim  DataTable  As  Data_Table 
Dim  SelectedColor  As  Color 

DataTable  -  CType (Me . ActiveMdiChild,  Data_Table) 
Dim  Selection  As  CellRange 
Selection  =  DataTable . DataTable . Selection 
Dim  ColorDlg  As  New  ColorDialog 
If  ColorDlg. ShowDialog  =  DialogResult . OK  Then 
SelectedColor  -  ColorDlg . Color 
Selection. StyleNew. BackColor  =  SelectedColor 
End  If 
End  If 

End  Sub 


Sub  PrintDocumentPages (ByVal  firstPage  As  Integer,  ByVal  lastPage  As  Integer) 
Me.currPage  =  firstPage 
Me. lastPage  =  lastPage 
Me.PrintDoc  =  New  PrintDocument 

Try 

PrintDoc . Print ( ) 

Catch  ex  As  Exception 

MessageBox. Show (ex .Message ,  "Print  Error") 

End  Try 

End  Sub 

Private  Sub  PrintDoc_PrintPage (ByVal  sender  As  Object,  ByVal  e  As  System . Drawing .  X 

Printing. Print PageEventArgs)  Handles  PrintDoc . PrintPage 

End  Sub 


Private  Sub  mnuFormatChart_Click (ByVal  sender  As  System . Ob j ect ,  ByVal  e  As  System.  i e 

Event Args)  Handles  mnuFormatChart . Click 
If  Me . ActiveMdiChild  Is  Nothing  Then 
Return 
End  If 

If  Me .ActiveMdiChild. Name  =  "Data_Table"  Then 
Return 
End  If 

If  Me .ActiveMdiChild .Name  =  "barchart"  Then 

Dim  barchart  As  barChart  =  CType (Me . ActiveMdiChild,  barchart) 
barChart . chartBar . ShowProperties ( ) 

End  If 

If  Me .ActiveMdiChild. Name  =  "chartDendrogram"  Then 

Dim  myDendrogram  As  chartDendrogram  =  CType (Me .ActiveMdiChild,  chartDendrogram 

) 

myDendrogram . chDendrogram . ShowProperties  ( ) 

End  If 

If  Me . ActiveMdiChild . Name  =  "Plot"  Then 

Dim  myPlot  As  Plot  =  CType (Me .ActiveMdiChild,  Plot) 
myPlot . chartPCA . ShowProperties ( ) 

End  If 
End  Sub 

Private  Sub  FilePrintPreview_Click (ByVal  sender  As  System. Ob ject ,  ByVal  e  As  System. 
EventArgs)  Handles  FilePrintPreview . Click 


If  Me . ActiveMdiChild  Is  Nothing  Then 
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Return 
End  If 

If  Me.ActiveMdiChild.Name  =  MText__Output "  Then 

Dim  TextOutput  As  Text_Output  =  CType (Me  * ActiveMdiChild,  Text_Output> 

Dim  text  As  String  =  TextOutput . Input Text .ToSt ring 
Dim  s  As  Cl . CIPrintDocument . ClDoeStyle 
Dim  doc  As  New  CIPrintDocument 
With  Me. doc 

.Style. Font  -  New  Font ("Times  New  Roman",  12,  FontStyle . Regular) 

With  .PageReader 

* .RenderText .Style .Text AlignHorz  -  Cl .CIPrintDocument .AlignHorzEnum. 

Right 

1 .RenderText .Text  =  "Header  -  Page  [@®PageNo@@]  of  [@@PageCount@@] " 
.Height  -  0 
End  With 

With  . PageFooter 

.RenderText .Style .Text AlignHorz  =  Cl . CIPrintDocument .AlignHorzEnum. 

Right 

.RenderText .Style .Text AlignVert  =  Cl. CIPrintDocument . AlignVertEnum. 

Bottom 

. RenderText .Text  -  "Footer  -  Page  [@@PageNo@@]  of  [@@PageCount@@] " 

End  With 
.StartDoe {) 

. Style. TextColor  =  Color. Black 

* .Style .Text AlignHorz  =  Cl .CIPrintDocument .AlignHorzEnum. Justify 
. RenderBlockText ( text ) 

.Style. Text AlignHorz  =  Cl .CIPrintDocument .AlignHorzEnum. Left 
. EndDoe ( ) 

End  With 

Dim  aprev  As  New  Final_Report 
aprev. CIPrintPreviewl. Document  =  Me. doc 
aprev . ShowBialog { ) 
aprev. Dispose {) 

End  If 

If  Me. ActiveMdiChild.Name  -  "Data_Table"  Then 

Dim  DataTable  As  Data_Table  =  CType (Me . ActiveMdiChild,  Data_Table) 

'Me , InternalPrintGrid (DataTable . DataTable) 

'Count  the  number  of  filled  in  columns  (i.e.  how  many  variables). 

Dim  k,  1,  m  As  Integer 

Dim  ColumnData  As  CellRange 

Dim  Adjacent ColumnData  As  CellRange 

Dim  rel  As  New  Regex (" [0-9] "} 

For  k  =  3  To  CType (DataTable .DataTable . Cols .Count ,  Integer)  -  2 

ColumnData  =  DataTable . DataTable . GetCellRange (1,  k,  CType (DataTable . 
DataTable. Rows .Count,  Integer)  -  1,  k) 

'provide  a  counter  to  make  sure  all  columns  are  contiguous 

Adjacent ColumnData  =  DataTable. DataTable. GetCe 1 iRange (1,  k  +  1,  CType (  i £ 

Da taTable. DataTable. Rows .Count ,  Integer)  -  1#  k  +  1} 

If  Not  rel .Matches (ColumnData . Clip) . Count  -  0  Then 
1-1  +  1 
End  If 

'count  if  columns  are  not  adjacent  (i.e.  any  empty  columns  in  between) 

If  Not  rel .Matches (ColumnData. Cl ip) .Count  =  0  And  Not  rel.Matches(  nf 

Adjacent ColumnData. Clip) .Count  =  0  Then 
m  =  m  +  1 
End  If 

Next 

'Count  last  column  if  it  has  data  in  it 
k  =  k  +  1 

If  Not  rel. Matches (ColumnData. Cl ip) .Count  -  0  Then 
1  =  1  +  1 
End  If 
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Dim  Replicates  As  Integer  =  CType (DataTable . Replicates ,  Integer) 

If  Replicates  =  Nothing  Then 

Dim  ReplicateCells  As  CellRange 

ReplicateCells  «  DataTable .DataTable . GetCellRange (1 ,  2,  CType (DataTable .  X 
DataTable . Rows . Count  -  1,  Integer),  2) 

Dim  maxReplicate  As  Integer 

maxReplicate  =  CType (DataTable .DataTable .Aggregate (AggregateEnum. Max, 
ReplicateCells,  AggregateFlags .None) ,  Integer) 

Replicates  =  maxReplicate 

End  If 

Dim  endCell  As  Integer 
Dim  SampleCells  As  CellRange 

For  m  ss  1  To  DataTable . DataTable . Rows . Count  -  1  Step  Replicates 
If  CType (DataTable .DataTable (m,  1),  String)  =  " "  Then 
endCell  =  m 

m  -  DataTable . DataTable . Rows . Count 
End  If 

Next 

Dim  rows,  columns  As  Integer 
For  rows  =  0  To  endCell  -  1 

DataTable .DataTable . Rows (rows) . Visible  =  True 

Next 

For  rows  =  endCell  To  DataTable . DataTable . Rows . Count  -  1 
DataTable .DataTable . Rows (rows) . Visible  =  False 

Next 

For  columns  =  3  +  1  To  DataTable .DataTable . Cols . Count  -  1 
DataTable .DataTable . Cols (columns) . Visible  =  False 

Next 

1  PUT  IN  TO  TEST  FORMATTING 
Dim  doc  As  New  CIPrintDocument 
currentGrid  *=  DataTable  .  DataTable 
MakeDoc (Me . doc ,  Nothing) 

' MakeFlexPr intDoc (Me . doc ,  Nothing) 

Dim  aprev  As  New  Final_Report 

AddHandler  doc . GenerateDocument ,  New  GenerateEventHandler (AddressOf  MakeDoc) 
aprev. CIPrintPreviewl. Document  =  Me. doc 
aprev. ShowDialog  ( ) 

RemoveHandler  doc . GenerateDocument ,  New  GenerateEventHandler (AddressOf  MakeDoc 

) 

currentGrid  =  Nothing 
aprev .Dispose  ( ) 

For  rows  =  endCell  To  DataTable . DataTable . Rows . Count  -  1 
DataTable .DataTable . Rows (rows ) .Visible  =  True 

Next 

For  columns  =  3  +  1  To  DataTable . DataTable . Cols . Count  -  1 
DataTable . DataTable . Cols (columns ). Visible  =  True 

Next 
End  If 


If  Me . ActiveMdiChild.Name  =  "barChart"  Then 

Dim  barChart  As  barChart  =  CType (Me . ActiveMdiChild,  barChart) 

Dim  doc  As  New  CIPrintDocument 
Doc2D_bar (doc ,  New  GenerateEventArgs ) 

Dim  aprev  As  New  Final_Report 

AddHandler  doc . GenerateDocument ,  New  GenerateEventHandler (AddressOf  Doc2D_bar) 
aprev . CIPrintPreviewl . Document  =  doc 
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aprev . ShowDialog ( ) 

EetnoveHandler  doc.GenerateDocument,  New  GenerateEventHandler (AddressOf  Doc2 

D_bar) 

aprev . Dispose { } 

'barChart .chartBar. PrintChart (PrintScaleEnum. ScaleToFit) 


End  If 

If  Me. ActiveMdiChild.Name  =  "chartDendrogram11  Then 

Dim  myDendrogram  As  chartDendrogram  =  CType (Me. ActiveMdiChild,  chart Dendrogram^ 

) 

Dim  doc  As  New  CIPrintDocument 
Doc2D_dendrogram(doc,  New  GenerateEventArgs) 

Dim  aprev  As  New  Final_Report 

AddHandler  doc . Gener ateDoeument ,  New  GenerateEventHandler (AddressOf  Doc2 
D_dendrogram) 

aprev. CIPrintPreviewl .Document  =  doc 
aprev . ShowDialog { ) 

RemoveHandler  doc.GenerateDocument,  New  GenerateEventHandler (AddressOf  Doc2 
D_dendrogram) 

aprev, Dispose ( ) 

1 barchart .chartBar . PrintChart (PrintScaleEnum. ScaleToFit) 

*  myDendrogram , chDendrogram . PrintChart ( PrintScaleEnum . ScaleToFit ) 

End  If 

If  Me . ActiveMdiChild.Narae  =  11  Plot 11  Then 

Dim  myPlot  As  Plot  *  CType (Me .ActiveMdiChild,  Plot) 

Dim  doc  As  New  CIPrintDocument 
Doc2D_Plot (doc.  New  GenerateEventArgs) 

Dim  aprev  As  New  Final_Report 

AddHandler  doc .GenerateDocument ,  New  GenerateEventHandler (AddressOf  Doc2D_Plottf 

) 

aprev, CIPrintPreviewl .Document  =  doc 
aprev . ShowDialog ( } 

RemoveHandler  doc . GenerateDocument  f  New  GenerateEventHandler (AddressOf  Doc2 

D_Plot) 

aprev , Dispose ( ) 

*  myPlot . chartPCA. PrintChart (PrintScaleEnum . ScaleToFit) 

End  If 


End  Sub 

Private  Sub  Doc2D_Plot (ByVal  doc  As  CIPrintDocument,  ByVal  e  As  GenerateEventArgs) 
Dim  ClChartlRaw  As  Plot  =  CType (Me . ActiveMdiChild,  Plot) 

Dim  ClChartl  As  Cl . Win, CIChart .CIChart  =  ClChartlRaw. chartPCA 
With  doc 

.DefaultUnit  =  UnitTypeEnum . Mm 
.StartDoe ( ) 

* .RenderBlockText (" Chart " ,  50,  50,  Nothing) 

Dim  ww  As  Double  =  (CType ( .BodyAreaSize .Width,  Double))  *  0.9 
. RenderBIockClPrintable (ClChartl,  ( .BodyAreaSize .Width  *  0.9)) 
.CanChangePageMetrics ( ) 

. RenderBlockGraphicsBegin ( ) 

. EndDoc ( ) 

End  With 
End  Sub 

Private  Sub  Doc2D_dendrogram (ByVal  doc  As  CIPrintDocument,  ByVal  e  As 
GenerateEventArgs ) 

Dim  ClChartlRaw  As  chartDendrogram  =  CType (Me .ActiveMdiChild,  chartDendrogram) 
Dim  ClChartl  As  Cl .Win. CIChart .CIChart  =  ClChartlRaw. chDendrogram 
With  doc 

.DefaultUnit  =  UnitTypeEnum . Mm 
.StartDoe ( ) 
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1 . Render BlockText ( "Chart " ,  50,  50,  Nothing) 

Dim  ww  As  Double  =  (CType (. BodyAreaSize .Width,  Double))  *  0-9 
. RenderBlockClPrintable (ClChartl ,  (. BodyAreaSize . Width  *  0.9)) 

. CanChangePageMetrics ( ) 

.RenderBlockGraphicsBegin ( ) 

. EndDoc ( ) 

End  With 
End  Sub 

Private  Sub  Doc2D_bar (ByVal  doc  As  CIPrintDocument ,  ByVal  e  As  GenerateEventArgs) 

Dim  ClChartlRaw  As  barChart  =  CType (Me .ActiveMdiChild,  barChart) 

Dim  ClChartl  As  Cl . Win . CIChart . CIChart  =  ClChartlRaw. chartBar 
With  doc 

.DefaultUnit  =  UnitTypeEnum . Mm 
.StartDoc  ( ) 

* .RenderBlockText ( "Chart" ,  50,  50,  Nothing) 

Dim  ww  As  Double  =  (CType (. BodyAreaSize . Width,  Double))  *  0.9 
.RenderBlockClPrintable (ClChartl ,  (. BodyAreaSize .Width  *  0.9)) 

.CanChangePageMetrics () 

.RenderBlockGraphicsBegin ( ) 

. EndDoc ( ) 

End  With 
End  Sub 

Private  Sub  HelpProviderl_Disposed (ByVal  sender  As  Object,  ByVal  e  As  System. Event Args 
)  Handles  HelpProviderl . Disposed 

End  Sub 


Private  Sub  mnuEditUndo_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System. 

Event Args)  Handles  mnuEditUndo . Click 

Dim  DataTable  As  Data_Table  =  DirectCast (Me . ActiveMdiChild,  Data_Table) 

End  Sub 

Private  Sub  mnuDataStat ist ics_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System,  wf 
Event Args )  Handles  mnuDataStat istics . Click 
Dim  Report  As  New  Report_Document 
Report . Show ( ) 

End  Sub 


End  Class 


C:\Documents  and  Settings\t jb\My  Document s\ ...  Studio  Projects\lRMS  Process ing_OQ\About .vb _ 1 

Public  Class  About 

Inherits  System. Windows . Forms . Form 

Windows  Form  Designer  generated  code 

Private  Sub  About_Load (ByVal  sender  As  System. Object,  ByVal  e  As  System. EventArgs) 
Handles  MyBase.Load 

End  Sub 

Private  Sub  About_MdiChildActivate (ByVal  sender  As  Object,  ByVal  e  As  System. 

EventArgs)  Handles  MyBase .MdiChildActivate 

End  Sub 

Private  Sub  Label3_Click {ByVal  sender  As  System. Object ,  ByVal  e  As  System. EventArgs)  y? 
Handles  Label 3 .Click 

End  Sub 
End  Class 
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Imports  System 

Imports  System.Ref lection 

Imports  System- Runtime . InteropServices 

*  General  Information  about  an  assembly  is  controlled  through  the  following 

1  set  of  attributes.  Change  these  attribute  values  to  modify  the  information 

*  associated  with  an  assembly. 

*  Review  the  values  of  the  assembly  attributes 

<Assembly:  AssemblyTitle { " " ) > 

<Assembly:  AssemblyDescription { " " ) > 

<Assembly;  AssemblyCompany ( " " ) > 

<Assembly :  AssemblyProduct (  "  "  )  > 

<Assembly:  AssemblyCopyright ("")  > 

<Assembly :  AssemblyTrademark ( " ” ) > 

<Assembly:  CLSCompliant (True) > 

'The  following  GUID  is  for  the  ID  of  the  typelib  if  this  project  is  exposed  to  COM 
<Assembly:  Guid ( "3648409D-0530-443F-8B55-1698FC969708 "  )  > 

'  Version  information  for  an  assembly  consists  of  the  following  four  values: 

i 

'  Major  Version 

'  Minor  Version 

*  Build  Number 

'  Revision 

'  You  can  specify  all  the  values  or  you  can  default  the  Build  and  Revision  Numbers 
'  by  using  the  ' **  as  shown  below: 

<Assembly :  AssemblyVersion  ( "1 . 0  .  *'•)  > 
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Imports  Cl .Win. CIChart 
Imports  System. Math 
Imports  System. Drawing. Imaging 
Imports  System.Drawing . Printing 
Imports  Cl . Win. CIPrintPreview 
Imports  €1 .CIPrintBocument 

Public  Class  barChart 

Inherits  System . Windows . Forms . Form 

#Region  ■  Windows  Form  Designer  generated  code  11 

Public  Sub  New{) 

MyBase.New{) 

•This  call  is  required  by  the  Windows  Form  Designer. 

InitializeComponent () 

•Add  any  initialization  after  the  InitializeComponent ( )  call 
End  Sub 

•Form  overrides  dispose  to  clean  up  the  component  list. 

Protected  Overloads  Overrides  Sub  Dispose {ByVal  disposing  As  Boolean) 

If  disposing  Then 

If  Not  (components  Is  Nothing)  Then 
components . Dispose ( ) 

End  If 
End  If 

MyBase. Dispose (disposing) 

End  Sub 

•Required  by  the  Windows  Form  Designer 

Private  components  As  System. Component Model . I Container 

•NOTE:  The  following  procedure  is  required  by  the  Windows  Form  Designer 
•It  can  be  modified  using  the  Windows  Form  Designer. 

•Do  not  modify  it  using  the  code  editor. 

Friend  WithEvents  chartBar  As  Cl . Win. CIChart . CIChart 
Friend  WithEvents  Menultem3  As  System. Windows . Forms . Menultem 
Friend  WithEvents  Menultem6  As  System, Windows . Forms .Menultem 
Friend  WithEvents  ctxCopy  As  System. Windows . Forms .Menultem 
Friend  WithEvents  ctxSaveAs  As  System. Windows . Forms . Menultem 
Friend  WithEvents  ctxPrint  As  System. Windows . Forms .Menultem 
Friend  WithEvents  ctxExit  As  System. Windows . Forms .Menultem 
Friend  WithEvents  ContextMenuBarChart  As  System. Windows . Forms . ContextMenu 
<System. Diagnostics. DebuggerStepThroughO >  Private  Sub  InitializeComponent () 
Dim  resources  As  System, Resources . ResourceManager  =  New  System. Resources . 
ResourceManager (GetType (barChart) ) 

Me. chartBar  =  New  Cl .Win. CIChart .CIChart 

Me . ContextMenuBarChart  -  New  System. Windows . Forms , ContextMenu 
Me. ctxCopy  =  New  System .Windows . Forms .Menultem 
Me. ctxSaveAs  =  New  System. Windows . Forms .Menultem 
Me.MenuItemB  =  New  System. Windows . Forms .Menultem 
Me. ctxPrint  -  New  System. Windows . Forms .Menultem 
Me.MenuItemS  -  New  Sys tem. Windows . Forms .Menultem 
Me. ctxExit  -  New  System. Windows . Forms . Menultem 

CType (Me . chartBar,  System . Component Model . ISupport Initialize) . Beginlnit ( ) 
Me . SuspendLayout ( ) 

*  chartBar 
■ 

Me. chartBar . BackColor  =  System.Drawing. Color .White 
Me . chartBar . DataSource  *  Nothing 

Me . chartBar .Dock  -  System. Windows . Forms . DockStyle . Fill 
Me. chartBar .Location  =  New  System.Drawing. Point (0 ,  0) 

Me . chartBar .Name  -  "chartBar" 
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Me.chartBar .  PropBag  =  "<?xml  version-,,,,l .  0"  "?><Chart2DPropBag  Version=11  """>  * 

<StyleCollectionxNamedStylexPar  "  &  _ 

l,entName>Area</ParentNamexStyleData>Border=None ,  Black,  1;  </StyleData><Name>PlotAr"  i/ 

&  _ 

"ea</Namex/NamedStylexNamedStylexParentName>Legend.  def  ault</ParentNamexStyleD"  i/ 

&  _ 

"at a  /><Name>Legend</Name></NamedStyle><NamedStyle><ParentName>Control</ParentNam"  i/ 

&  _ 

"exStyleData>Border=None ,  Black,  1 ;  </StyleDataxName>Footer< /Namex/NamedStylexNa" 

Sc  _ 

,,medStyle><ParentName>Area  .def ault</ParentName><StyleData  /><Name>Area< /Namex/Na"  ^ 

&  _ 

"medStylexNamedStylexParentName>Control .  def  ault</ParentNamexStyleData>BackColo" 

&  __ 

"r=White ;  </StyleDataxName>Control</Namex/NamedStylexNamedStylexParentName>Are"  i/ 

&  _ 

na</ParentNamexStyleData>Rotation=RotateO ; Border=None , Transparent , 1 ; AlignHorz=Ce" »/ 
Sc 

"nter ; BackColor=Transparent ;Opaque=False  ? AlignVert=Bottom; </StyleDataxName>AxisX" 

Ec  _ 

,,</Namex/NamedStylexNamedStylexParentName>Area</ParentNamexStyleData>Rotation"  i/ 

Sc  _ 

"=Rotate270 ; Border =None , Transparent , 1 ? AlignHorz=Near ; BackColor=Transparent  ? Opaque" 

Sc  _ 

"  =False  ;  AlignVert=Center ;  < /StyleDataxName >AxisY< /Name x/NamedStylexNamedSty lex  ■  i/ 

Sc  _ 

" ParentName>LabelStyleDe fault . def ault</ParentNamexStyleData  /><Name>LabelStyleDe" i/ 

Sc  _ 

"f  ault</Namex/NamedStylexNamedStylexParentName>Control</ParentNamexStyleData>"  vr 

Sc  _ 

"Border=None, Black, 1 ; Wrap=False ; AlignVert=Top; </StyleDataxName>Legend . def ault</N" k t 

Sc  _ 

,,amex/NamedStylexNamedStylexParentNaIne>Control</ParentNamexStyleData>Border=N,,  t/ 

Sc  _ 

"one,  Black,  1 ;  BackColor^Transparent  ,*  </StyleDataxName>LabelStyleDef  ault .  def  ault< /N"  i/ 

Sc  _ 

,,amex/NamedStylexNamedStylexParentName>Control</ParentNamexStyleData>Border=N,, 

6c  _ 

"one, Black, 1; Font ^Microsoft  Sans  Serif,  8.25pt;</StyleDataxName>Header</Name></N'V 

Sc  __ 

"amedStylexNamedStylexParentName  /><StyleData>ForeColor=ControlText ; Border=None "  ^ 

Sc  _ 

"  ,  Black,  1 ; BackColor=Control ;  </StyleDataxName>Control .  default</Namex/NamedStyle>" 

Sc  _ 

"<NamedStylexParentName>Area</ParentNamexStyleData>Rotation=Rotate9  0 Border=Non"  X 

Sc  _ 

"e, Transparent , 1 ; AlignHorz=Far ; BackColor=Transparent ; AlignVert=Center ; </StyleData" j/ 

Sc  _ 

"><Name>AxisY2</Namex/NamedStylexNamedStylexParentName>Control< /ParentNamexSt "  kf 

Sc  _ 

"yleData>Border=None ,  Black ,  1 ;  AlignVert=Top;  </StyleDataxName>Area .  def  ault< /Namex  " 

Sc  _ 

"  /NamedStylex/StyleCollectionxHeader  Compass  =  "  "North"  "  xText  >Percent  Variance  i/ 
Exp"  Sc  _ 

"lained</Text x/HeaderxFooter  Compass  =  "  "South"  " xText  /></FooterxLegend  Visible=»/ 

"  "  Sc 

"False""  Compass^  "  "East ""  xText  /></LegendxChartArea  /xAxesxAxis  UnitMa j or =" "1  i/ 
""  Un "  6c 

"itMinor=" "0 . 5" "  AutoMa j or= " "True " "  AutoMinor= " "True " "  AutoMax=" "True" "  AutoMin=" 
"True""  Ma"  6c 

" X—  "  " 5  "  "  Min="Ml""  _onTop=  "  " 0  "  "  Compass =  "  " South"  "  xGridMaj  or  AutoSpace  =  "  "True  "  "  wf 
Color="  "Ligh"  Sc  _ 

"tGray"  "  Pattern=  "  "Dash"  "  Thickness=  "  "  1 "  "  /xGridMinor  AutoSpace="  "True"  "  Color="  i/ 
"LightGr"  &  _ 

"ay""  Pattern=  "  "Dash"  "  Thickness  =  1 "  "  /xText  /></AxisxAxis  UnitMa  jor="  "2  "  "  ^ 

UnitMinor="  &  _ 

"""1""  AutoMajor= " "True" "  AutoMinor= " "True" "  AutoMax= " "True " "  AutoMin= " "True " "  Max/ 
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-""26""  Min"  & 

"  =  "  «8”  "  _onTop= "  " 0 "  "  Compass-"  "West"  "xGridMajor  AutoSpace =  "  “True”  "  Color-"  % € 

"LightGray""  Pat"  &  _ 

"tern-"  "Dash"  "  Thickness-"  "1"  ■  /xGridMinor  AutoSpace-" "True" "  Color-" "LightGray" " 
Patter"  &  __ 

"n=" "Dash"  *  Thickness- "  n  1 "  "  /xText  /></AxisxAxis  UnitMajor="  "0""  UnitMinor-"  "0""  yt 
AutoMa"  &  _ 

"  j or  =  *  " True " "  AutoMinor-" "True" "  AutoMax-"  "True"  "  AutoMin="  "True"  "  Max-""0n"  Min- 
* "0"n  _onTop"  &  _ 

»  =  <*«0««  Compass-"  "East "  "xGridMaj or  AutoSpace-"  "True"  "  Color- «  "LightGray"  "  Patterns 
-""Dash" «  »  & 

"  Thickness-""!""  /xGridMinor  AutoSpace-"  "True" "  Color-"  "LightGray" "  Pattern-" 
"Dash""  Th"  &  _ 

"ickness-"  "1"  "  /xText  />< /Axis x /Axes ><ChartGroupsCollectionxChartGroup> 
<ShowOutl"  Sc  _ 

" ine>True</ ShowOut linexHiLoData>Fil iFal 1 ing-True , FillTransparent-True , FullWidth- "  1 1 

Sc  _ 

"False,  ShowClose-True,  ShowOpen=True</HiLoDataxChartType>Bar</ChartTypexName>Gro" 

&  _ 

"upl</NamexBar>ClusterOverlap=0,  ClusterWidth=80</BarxBataSerializer  Hole-" "3,402 

"  Sc  _ 

"8234663852886E-f-38" "  DefaultSet-"  "True"  " ><DataSeriesCollection> 
<DataSeriesSerializer"  &  _ 

" xSeriesLabel >Var iancesc /Seri esLabel xDataTypes  >Double ; Double ; Double ;Double ; Doub  * g 

Sc  _ 

"le</DataTypes><DataFields>; ; ; ; </DataFieldsxSymbolStyle  Color-" "Coral" «  Shape-"  kf 
"Box"  & 

"""  /><X  /><Y1  / xY  /xLineStyle  Color- "  "Blue"  "  Pattern-"  "Solid" "  Thickness-" "1"  " 
/><Tag"  Sc  _ 

”  l ><Y2  /><Y3  /></DataSeriesSerializerx/DataSeriesCollectionx/DataSerializerxB"*(f 

Sc  _ 

"ubble>EncodingMethod=Diameter , MaximumSize=2  0 , MinimumSize=5< /Bubble  ><Pie>OtherOf f " 

Sc  _ 

”set  =  0#  Start  =  G</PiexPolar>Degrees=True,  PiRatioAnnotat ions -True,  Start  =  G</PolarxS"  yt 

Sc  _ 

"tacked>False</Stacked><Radar>Degrees=True,  Filled-False,  Start-0</RadarxVisible>T"  *<? 

&  _ 

"rue</Visiblex/ChartGroupxChartGroupxShowOutline>True</3howOutlinexHiLoData>F« 

&  _ 

"il IFal 1 ing-True, FillTransparent-True, FullWidth-False, ShowClose-True, ShowOpen-Tru" ^ 

&  _ 

"e< /HiLoDataxChartType >XYPlot</ChartTypexName>Group2< /Name ><Bar>ClusterOver lap-"  i € 

Sc  _ 

"0,  ClusterWidth=5  0</BarxDataSerializer  Hole-" "3 . 4 028234663 85288 6E+38 " «  /xBubble>tf 

E«  & 

"ncodingMethod-Diameter ,  MaximumSize-20 , MinimumSize  =  5</BubblexPie>OtherOf f  set-0 ,  S" 

Sc  _ 

"tart-0</PiexPolar>Degrees=True, PiRatioAnnotat ions -True, Start-0</Polar><Stacked>" 

Sc  _ 

«False</StackedxRadar>Degrees=True,  Filled-False,  Start-0</RadarxVisible>True</Vi" 

&  _ 

"s  iblex  /ChartGroupx /Char  tGroupsCollectionx /Chart  2DPropBag>" 

Me.chartBar .Size  =  New  System, Drawing, Size (422 ,  373} 

Me .ehartBar .Tablndex  =  0 

i 

*  ContextMenuBarChart 

Me . ContextMenuBarChart . Menu I terns . AddRange (New  System, Windows , Forms ,MenuItem ( }  {Me . 
ctxCopy,  Me , ctxSaveAs ,  Me ,MenuItem3 ,  Me.etxPrint,  Me ,MenuItem€ ,  Me.ctxExit}) 

*  ctxCopy 

t 

Me . ctxCopy, Index  -  0 
Me. ctxCopy. Text  =  "&Copy" 

*  ctxSaveAs 


64 


C : \ Documents  and  Settings\t jb\My  Document s\ .  . .  Projects\IRMS_Processing_OQ\barChart . vb 


4 


Me . ctxSaveAs . Index  »  1 
Me.ctxSaveAs .Text  =  “Save  ScAs" 

t 

' Menultem3 

t 

Me .Menultem3 . Index  =  2 
Me .Menultem3 .Text  =  " - " 

i 

'ctxPrint 

Me . ctxPrint . Index  =  3 

Me. ctxPrint . Text  =  "&Print" 

« 

'MenuItemG 

i 

Me . Menultem6 . Index  =  4 
Me .Menultem6 .Text  =  11  -™ 

i 

* ctxExit 

i 

Me . ctxExit . Index  =  5 
Me . ctxExit . Text  =  "E&xit" 

t 

*  barchart 

i 

Me . AutoScaleBaseSize  =  New  System. Drawing . Size (5 ,  13) 

Me . ClientSize  =  New  System. Drawing . Size (422 ,  373) 

Me . ContextMenu  =  Me . ContextMenuBarChart 
Me . Controls .Add (Me . chartBar) 

Me. Icon  =  CType (resources . GetObj  ect ( "$this . Icon" ) ,  System. Drawing . Icon) 
Me. Name  =  "barchart" 

Me . Start Posit ion  =  System. Windows . Forms . Forms tart Posit ion . Center Screen 
Me. Text  =  "barChart” 

CType (Me . chartBar,  System. ComponentMode I . ISupportlnitialize) . Endlnit ( ) 
Me . ResumeLayout (False) 

End  Sub 

#End  Region 

Private  mySamples  As  Integer 
Private  myVariables  As  Integer 
Private  mylnput_data  As  Array 
Private  mySampleNames  As  Array 
Private  myDataSeries  As  Integer 

Public  Property  Variables ()  As  Integer 
Get 

Return  myVariables 
End  Get 

Set (ByVal  Value  As  Integer) 
myVariables  =  Value 
End  Set 
End  Property 

Public  Property  Samples ()  As  Integer 
Get 

Return  mySamples 
End  Get 

Set (ByVal  Value  As  Integer) 
mySamples  -  Value 
End  Set 
End  Property 

Public  Property  Input_data()  As  Array 
Get 

Return  mylnput_data 
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End  Get 

Set (ByVal  Value  As  Array) 
mylnput_data  =  Value 
End  Set 
End  Property 

Public  Property  SampleNames ()  As  Array 
Get 

Return  mySampleNames 
End  Get 

Set (ByVal  Value  As  Array) 
mySampleNames  =  Value 
End  Set 
End  Property 

Public  Property  DataSeriesO  As  Integer 
Get 

Return  myDataSeries 
End  Get 

Set{ByVal  Value  As  Integer) 
myDataSeries  =  Value 
End  Set 
End  Property 


Private  Sub  mnuFileClose_Click (ByVal  sender  As  System. Object,  ByVal  e  As  System. 
EventArgs) 

Me. Close ( ) 

End  Sub 

Private  Sub  char tBar_Load (ByVal  sender  As  System. Object ,  ByVal  e  As  System. EventArgs)  1 1 
Handles  chartBar . Load 

Dim  chartData  As  Cl . Win. CIChart . ChartDataSeries 
Dim  chartDataXY  As  Cl .Win . CIChart . ChartData 
Dim  AxisCounter  As  Integer  =  Input_data. Length 
Dim  Counter  As  Integer  =  0 


Dim  xAxisData (AxisCounter  -  1)  As  Double 

Dim  yAxisDataPercent (AxisCounter  -  1)  As  Double 

Dim  sumVariance  As  Double 

For  Counter  =  0  To  AxisCounter  -  1 

sumVariance  =  sumVariance  +  CType (Input_data. Get Value (Counter) ,  Double) 

Next 

For  Counter  =  0  To  AxisCounter  -  1 
xAxisData (Counter)  =  Counter  +  1 

yAxisDataPercent  (Counter)  =  (100  *  CType  (Input__dat a  .GetValue  (Counter)  , 
Double) )  /  sumVariance 


Next 

*  Populate  Chart 

chartBar . Style . Border . BorderStyle  -  Cl .  Win . CIChart . BorderStyleEnum . Sol id 
chartBar .Style. Border .Thickness  =  1 

chartBar .ChartGroups (0) . ChartData. SeriesList (0) . X . CopyDataln (xAxisData) 
chartBar . ChartGroups (0) .ChartData .SeriesList (0) . Y. CopyDataln (yAxisDataPercent) 
chartBar . Chart Area . AxisX . Text  =  ControlChars , Lf  +  "Principal  Component" 
chartBar .Chart Area. Axis Y. Alignment  =  StringAlignment .Center 

chartBar .Chart Area. Axis Y. Text  =  "Percent  Variance  Explained"  +  ControlChars . Lf  +  " 

chartBar .Header . Style . Font  =  New  Font ( "Arial " ,  10,  FontStyle . Bold) 
chartBar .Chart Area, AxisX. TickMinor  =  TickMarksEnum , None 
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’Determine  the  percent  explained  at  each  bar 

Dim  percentExplained ( Input_data. GetUpperBound (0) )  As  Double 

Dim  totalVariance  As  Double 

Dim  tempPercent (Input_data . GetUpperBound (0) )  As  Double 
For  Counter  =  0  To  Input_data . GetUpperBound ( 0 ) 

totalVariance  =  totalVariance  +  CType (Input_data.GetValue (Counter) ,  Double) 

Next 

For  Counter  =  0  To  Input_data . GetUpperBound (0 ) 

tempPercent (Counter)  =  100  *  (CType (Input_data.GetValue (Counter) ,  Double))  /  X 
totalVariance 

If  Counter  >  0  Then 

percentExplained (Counter)  =  percentExplained (Counter  -  1)  +  tempPercent 

(Counter) 

Elself  Counter  =  0  Then 

percentExplained (Counter)  =  tempPercent (Counter) 

End  If 

percentExplained (Counter)  -  Math . Round (percentExplained (Counter) ,  1) 

Next 

’Add  data  labels 

Dim  cLabs  As  ChartLabels  -  chartBar . ChartLabels 
cLabs .Def aul tLabelStyle . BackColor  -  Color. White 

cLabs . Def aul tLabelStyle . Border . BorderStyle  =  BorderStyleEnum. Empty 
cLabs . Def aultLabelStyle . Border .Thickness  =  0 

For  Counter  =  0  To  percentExplained . GetUpperBound ( 0 ) 

Dim  cLab  As  Cl . Win. CIChart . Label  *  cLabs . LabelsCollection . AddNewLabel ( ) 

cLab . Text  =  percentExplained (Counter) .ToString 

cLab . AttachMethod  =  AttachMethodEnum . Datalndex 

cLab . AttachMethodData . Grouplndex  =  0 

cLab . AttachMethodData . Serieslndex  =  0 

cLab . AttachMethodData . Point Index  =  Counter 

cLab . Connected  =  True 

cLab. Offset  «  30 

cLab. Visible  =  True 

cLab. Compass  =  LabelCompassEnum.NorthEast 

Next 


End  Sub 

Private  Sub  ctxCopy_Click (ByVal  sender  As  System . Ob j ect ,  ByVal  e  As  System. EventArgs ) 
Handles  ctxCopy. Click 

Dim  myChart  As  barChart  =  Me 

myChart . chartBar . Savelmage (ImageFormat . Emf ) 

End  Sub 

Private  Sub  ctxSaveAs_Click (ByVal  sender  As  System. Obj ect ,  ByVal  e  As  System.  * 

EventArgs)  Handles  ctxSaveAs . Click 

Dim  lastFilterlndex  As  Integer  =  1 
Dim  myChart  As  barChart  =  Me 
Dim  sfg  As  New  SaveFileDialog 

sfg. Filter  =  "Metafiles  (* .emf ) | * . emf | "  +  "Bmp  files  (* .bmp) | * .bmp | "  +  "Gif  files  X 
(* .gif ) | * .gif | "  +  "Jpeg  files  (*. jpg; *. jpeg) | *. jpg; *. jpeg | "  +  "Png  files  (* .png) | * .pngwr 
I"  +  "All  graphic  files  (*. emf ;* .bmp; *. gif jpg; *. jpeg; * .png) | *. emf ;* .bmp; *. gif jpgtf 
; * . jpeg; * .png" 

sfg. Filterlndex  =  lastFilterlndex 
sfg . OverwritePrompt  =  True 
sf g . CheckPathExists  =  True 
sf g. RestoreDirectory  =  False 
sfg . ValidateNames  =  True 
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If  sfg . ShowDialog { )  =  DialogResult .OK  Then 
Dim  fn  As  String  *  sfg.FileName 
Dim  indext  As  Integer  =  fn.LastlndexOf (" . «c) 

If  indext  <  0  Then 

indext  -  fn. Length  +  1 
fn  +=  " .emf" 

Else 

indext  +=  1 
End  If 

Dim  ext  As  String  *  fn. Substring (indext) 

Dim  imgfmt  As  ImageFormat  =  Nothing 

Select  Case  ext 
Case  "emf" 

imgfmt  =  ImageFormat .Emf 
myChart. chartBar .Savelmage (fn,  imgfmt) 

Case  M bmp " 

imgfmt  =  ImageFormat . Bmp 
Case  "gif" 

imgfmt  =  ImageFormat .Gif 

Case  "jpeg”,  "jpg" 

imgfmt  -  ImageFormat .Jpeg 

Case  "png" 

imgfmt  =  ImageFormat . Png 

Case  Else 
Return 
End  Select 

lastFilter Index  =  sfg. Filterlndex 

If  Not  imgfmt .Equals (ImageFormat .Emf )  Then 

Dim  img  As  Image  =  myChart . char tBar .Get Image  0 
img. Save (fn,  imgfmt) 
img. Dispose () 

End  If 
End  If 

sfg. Dispose ( ) 

End  Sub 

Private  Sub  ctxExit_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System. Event Args)  ^ 
Handles  ctxExit . Click 
Me. Close ( ) 

End  Sub 

Private  Sub  chartBar_Click (ByVal  sender  As  Object,  ByVal  e  As  System. Event Args)  * 

Handles  chartBar. Click 
Me .Activate { ) 

End  Sub 

Private  Sub  ctxPrint_Click (ByVal  sender  As  System. Object,  ByVal  e  As  System. Event Args) 
Handles  ctxPrint .Click 

Dim  doc  As  New  CIPrintDocument 
Doc2D_bar (doc.  New  GenerateEventArgs) 

Dim  aprev  As  New  Final_Report 

AddHandler  doc .GenerateDocument ,  New  GenerateEventHandler (AddressOf  Boc2D_bar) 
aprev. Cl Print Previewl .Document  =  doc 
aprev. ShowDialog ( ) 

RemoveHandler  doc .GenerateDocument ,  New  GenerateEventHandler (AddressOf  Doc2D_bar) 
aprev . Dispose ( ) 

•barChart .chartBar . Print Chart (PrintScaleEnum.ScaleToFit) 

End  Sub 
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Private  Sub  Doc2D_bar (ByVal  doc  As  CIPrintDocument ,  ByVal  e  As  GenerateEventArgs) 

Dim  ClChartlRaw  As  barChart  =  Me 

Dim  ClChartl  As  Cl . Win . CIChart . CIChart  =  ClChartlRaw . chartBar 
With  doc 

.DefaultUnit  =  UnitTypeEnum . Mm 
.StartDoc  ( ) 

1 . RenderBlockText ( "Chart " ,  50,  50,  Nothing) 

Dim  ww  As  Double  =  (CType {. BodyAreaSize . Width,  Double))  *  0.9 
.RenderBlockClPrintable (ClChartl,  (. BodyAreaSize . Width  *  0.9)) 

. CanChangePageMetrics ( ) 

. RenderBlockGraphicsBegin ( ) 

.EndDoc ( ) 

End  With 
End  Sub 


End  Class 


69 


C:\Documents  and  Settings\t jb\My  Documents\ . . . \IRMS_Processing  OQ\chartDendrogram.vb 


1 


Imports  Cl. Win. Cl Chart 
Imports  System. Drawing. Imaging 
Imports  System . Drawing . Print ing 
Imports  Cl .CIPrintDocument 

Public  Class  chartDendrogram 

Inherits  System. Windows . Forms . Form 

#Region  ”  Windows  Form  Designer  generated  code  11 

Public  Sub  New() 

MyBase .New() 

fThis  call  is  required  by  the  Windows  Form  Designer. 

InitializeComponent { } 

•Add  any  initialization  after  the  InitializeComponent ( }  call 
End  Sub 

•Form  overrides  dispose  to  clean  up  the  component  list. 

Protected  Overloads  Overrides  Sub  Dispose {ByVal  disposing  As  Boolean) 

If  disposing  Then 

If  Not  {components  Is  Nothing)  Then 
components . Dispose { ) 

End  If 
End  If 

MyBase . Dispose (disposing) 

End  Sub 

•Required  by  the  Windows  Form  Designer 

Private  components  As  System. ComponentModel . IContainer 

•NOTE:  The  following  procedure  is  required  by  the  Windows  Form  Designer 
•It  can  be  modified  using  the  Windows  Form  Designer. 

•Do  not  modify  it  using  the  code  editor. 

Friend  WithEvents  chDendrogram  As  Cl . Win.CIChart .CIChart 
Friend  WithEvents  ctxCopy  As  Sys tern. Windows . Forms .Menul tern 
Friend  WithEvents  ctxSaveAs  As  System. Windows . Forms .Menul tern 
Friend  WithEvents  Menulteml  As  System. Windows . Forms .Menul tem 
Friend  WithEvents  ctxPrint  As  System. Windows . Forms . Menu I tem 
Friend  WithEvents  Menultem6  As  System. Windows . Forms .Menul tem 
Friend  WithEvents  ctxExit  As  System. Windows . Forms .Menul tem 

Friend  WithEvents  ContextMenuDendrogram  As  System. Windows . Forms .ContextMenu 
<System. Diagnostics . DebuggerStepThrough ( ) >  Private  Sub  InitializeComponent (} 

Dim  resources  As  System. Resources .ResourceManager  =  New  System. Resources. 
ResourceManager (GetType (chartDendrogram) ) 

Me . chDendrogram  =  New  Cl .Win.CIChart . CIChart 

Me. ContextMenuDendrogram  =  New  System. Windows . Forms . ContextMenu 

Me. ctxCopy  =  New  System. Windows . Forms .Menultem 

Me. ctxSaveAs  =  New  System. Windows . Forms .Menultem 

Me. Menul tem3  =  New  System. Windows . Forms .Menultem 

Me. ctxPrint  =  New  System. Windows . Forms .Menultem 

Me.MenuItem€  -  New  System. Windows . Forms . Menultem 

Me. ctxExit  -  New  System. Windows . Forms .Menultem 

CType (Me . chDendrogram,  System. ComponentModel . ISupport Initialize) .Beginlnit () 

Me . SuspendLayout ( ) 

» 

*  chDendrogram 

i 

Me. chDendrogram. BackColor  =  System. Drawing. Color .White 
Me . chDendrogram. DataSource  =  Nothing 

Me. chDendrogram. Dock  =  System. Windows . Forms .Docks tyle. Fill 
Me. chDendrogram. Location  -  New  System. Drawing. Point (0 #  0) 

Me. chDendrogram. Name  *  *' chDendrogram ° 

Me.  chDendrogram.  PropBag  =  "<?xml  version^"  ”1 . 0”  M?xChart2DPropBag  Version=l,n,tf,>  v? 
<StyleCollection><NamedStyle><Parw  &  _ 
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"entName>Area</ParentName><StyleData>Border=None/ Black, 1 ; </StyleData><Name>PlotAr" * 

Sc  _ 

"ea</Namex/NamedStylexNamedStylexParentName>Legend.  def  ault</ParentNamexStyleD" 

Sc  _ 

"at a  /xName>Legend< /Name  x/NamedStyle  xNamedStylexParentName>Cont  role /Par  entNam" 

&  _ 

"exStyleData>Border-None ,  Black,  1 ;  </ StyleDataxName>Footer</Name></NamedStylexNa" 

Sc 

"medStyle><ParentName>Area.default</ParentName><StyleData  /><Name>Area</Namex/Na"  * 

Sc  _ 

"medStylexNamedStylexParentName>Control .  def  ault</ParentName><StyleData>BackColo" 

Sc  _ 

"r=White;  </ StyleDataxName>Control</Name></NamedStylexNamedStylexParentNarae>Are"  * 

Sc  _ 

,,a</ParentNamexStyleData>Rotation=RotateO  ;  Border=None ,  Transparent ,  1 ; AlignHorz=Ce" 

Sc  __ 

"liter  ;BackColor=Transparent  ;Opaque=False ; AlignVert=Bottom; </StyleDataxName>AxisX"  ^ 

Sc 

"</Namex/NamedStylexNamedStylexParentName>Area</ParentNamexStyleData>Rotation"  * 

Sc  _ 

" =Rotate27  0 ; Border=None , Transparent , 1 ; Al ignHor z=Near ; BackColor=Transparent ; Opaque " * 

Sc  _ 

"  =False ;  AlignVert^Center ;  </StyleDat  a  xName>AxisY< /Name  x/NamedStyle  xNamedStyl  ex  *  X 

Sc 

"ParentName>LabelStyleDef ault . def ault</ParentNamexStyleData  /><Name>LabelStyleDe" * 

Sc  _ 

"  f  ault  < /Name  x/NamedStyle  xNamedStyl  ex  Par  entName>Control</ParentNamexStyleData>,‘  ^ 

Sc  _ 

"Border=None, Black, l;Wrap=False;AlignVert=Top; </StyleDataxName>Legend . default</N" 

Sc  _ 

" amex/NamedStyle><NamedStylexParentNaine>Control</ParentNamexStyleData>Border=N" 

Sc  _ 

"one, Black, 1 ;BackColor=Transparent ;  </StyleDataxName>LabelStyleDef  ault .  def  ault</N" 

Sc  _ 

"ame x/NamedStyle ><NamedStylexParentName>Control</ParentNamexStyleData>Border=N"  >£ 

Sc  _ 

"one.  Black,  1 ; BackColor=Transparent ;  </StyleDataxName>Header</Namex/NamedStylexN"  * 

Sc  _ 

"amedStylexParentName  /xStyleData>ForeColor=ControlText ; Border=None, Black, 1 ;Bac " 

Sc  _ 

"kColor=Control ;  </StyleDataxName>Control .  def  aul t< /Namex/NamedStylexNamedStyle>"  * 

Sc  _ 

"<ParentName>Area</ParentNamexStyleData>Rotation=Rotate90 ; Border=None , Transparen" * 

Sc 

"t , 1 ; Al ignHor z= Far ; BackCol  or  transparent ;  AlignVert=Center ,- </StyleData><Name>AxisY" 

Sc  _ 

,,2</Namex/NamedStylexNamedStylexParentName>Control</ParentNamexStyleData>Bord,, 

Sc  _ 

"er=None ,  Black,  1 ;  Al  ignVert=Top;  </StyleDataxName>Area .  def  ault  < /Name  x/NamedStyle  >" 

& 

"</StyleCollection>< Header  Compass  =  "  "North"  " xText  >Sample  Relatedness</Text ></  * 

Heade"  &  _ 

"rxFooter  Compass=  "  "South"  " xText  / x/FooterxLegend  Visible^  "  " False"  "  Compass="  * 
"East"  Sc  _ 

"""xText  /  x/LegendxChartArea  /xAxesxAxis  UnitMajor=" "1" "  UnitMinor=" "0 . 5" "  X 
AutoMa"  Sc  _ 

" jor=" "True" "  AutoMinor= " "True" "  AutoMax= " "True " "  AutoMin= " "True " "  Max=""5""  Min= 
""1""  _onTop "  Sc  __ 

"  =  "  "0""  Compass=" "South" " xGridMaj or  AutoSpace=" "True" "  Colors" "LightGray" "  * 

Pattern^" "Dash"  &  _ 

"""  Thickness  =  "  "1"  "  /xGridMinor  AutoSpace=  "  "True"  "  Color=  "  "  LightGray"  "  Pattern^"  * 
"Dash""  T"  & 

"hickness  =  "  "  1 "  "  /xText  /></AxisxAxis  UnitMajor=" "2" "  UnitMinor="  "1 »  "  AutoMajor=  X 
""True"""  Sc 

"  AutoMinor=" "True" "  AutoMax=" "True" "  AutoMin= ""True" "  Max=""26" "  Min=" "8""  _onToptf 
=  "  "  0 "  "  Comp"  Sc 

"  ass  =  "  "  West "  "  xGridMaj  or  AutoSpace  =  "  "True  "  "  Color=  "  "LightGray"  "  Pattern=  "  "Dash"  " 
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Thicknes"  &  _ 

*»s  =  «*X««  /xGridMinor  AutoSpace=  "  “True*  ff  Color="  "Light  Gray "  "  Pattern^"  “Bash** "  it 

Thickness-"""  Sc  _ 

"1""  /  ><Text  /x/AxisxAxis  UnitMaj  or=w  "0 11  *  UnitMinor="  11 0  "  ■  AutoMa  jor="  "True"  " 
AutoMinor"  &  _ 

«  =  « "True" "  AutoMax= " * True  * "  AutoMin=« "True" "  Max=""0""  Min=""0""  _onTop=" "0" "  it 

Compass=" "East" ">"  Sc  _ 


"<GridMajor  AutoSpace=" "True" "  Color=" "LightGray""  Pattern^" "Dash" "  Thickness^" "1 
""  /xGr"  &  _ 

"idMinor  AutoSpace=" "True" "  Color=" "LightGray" *  Pattern=" "Dash" "  Thickness=" "1" " 
/xText  ,f  &  __ 

"/x/Axisx/Axes><ChartGroupsCollection><ChartGroup><ShowOutline>True</ShowGutlin"  it 

&  __ 

"e><HiLoData>FillFalling=True/ FiIlTransparent=True, FullWidth=False,  ShowClose-True"  it 

Sc  _ 

« ,  ShowOpen=True</HiLoDataxChartType>XYPlot</ChartTypexName>Groupl</NamexBar>Cl"  ^ 

Sc  _ 

«usterOverlap=0#ClusterWidth=50</BarxDataSerializer  Hole=«"3 .  4028234663  852886E-f  38^ 
«  &  _ 

« " «  DefaultSet^" "True" " xDataSeriesColIectionxDataSeriesSerializerxSeriesLabel> 
Den"  &  _ 

"drogram</3eriesLabelxBataTypes>Double;  Double;  Double;  Double  ;Double</DataTypesxD"  it 

Sc  _ 

”ataFields>;  ; ; ;  c/DataFieldsxSymbolStyle  Color=" "Cyan" "  Shape=" "None" "  /><X  /><Y1  kt 
/><"  Sc  _ 

"Y  / xLineStyle  Color=" "DarkMagenta" «  Pattern=« "Solid" «  Thickness^""!""  /><Tag  />  it 
<Y2  />"  Sc  _ 

"<Y3  /></DataSeriesSerializer></DataSeriesCollectionx/DataSerializerxBubble>Enc" 

&  _ 

”odingMethod=Biameterf MaximumSize=2G ,  MinimumSize=5</BubblexPie>OtherOff set=0#  Sta" it 

Sc  _ 

*rt=0</PiexPolar>Degrees=True,  PiRatioAnnotations^True,  Start=0</PolarxStacked>Fa"  it 

Sc  _ 

«lse</StackedxRadar>Degrees=True,  Filled^False,  Start=0</Radarx¥isible>True</Visi  * 

&  _ 

"blex/ChartGroupxChartGroupxShowOutline>True</ShowOutlinexHiLoData>FillFallin" 

&  _ 

"g=True,  FillTransparent=True , FuIlWidth=False , ShowClose=True, ShowGpen=True</HiLoDa" t 

Sc  _ 

"taxChartType>XYPlot</ChartTypexName>Group2</NamexBar>Cluster0verlap=0,  Cluster  "  it 

Sc  _ 

«Width=50</BarxDataSerializer  Hole=« "3 .4028234663852886E+38" "  /><Bubble>  it 

EncodingMe"  &  _ 

"thod=Diameter , MaximumSize=20 , MinimumSize  =  5</BubblexPie>OtherOf  f  set=0 , Start=0</P" it 

Sc  _ 

" ie><Polar>Degrees=True , PiRat ioAnnotations=True , Start=G</Polar xStacked>False</St "  it 

Sc  _ 

8 ackedxRadar >Degrees=True ,  Filled=False,  Start=0</RadarxVisible>True</Visiblex/C"  t 

Sc  _ 

"hartGroupx/ChartGroupsColleetionx/Chart2DPropBag>" 

Me.chDendrogram.Size  =  New  System. Drawing, Size {422,  393) 

Me . chDendrogram . Tablndex  =  0 

#  ContextMenuDendrogram 
■ 

Me. ContextMenuDendrogram. Menu I terns . AddRange (New  System. Windows . Forms .Menultem ( )  t 

{Me. ctxCopy,  Me . ctxSaveAs,  Me . Menultem3 ,  Me.ctxPrint,  Me .Menultem6 ,  Me.ctxExit}) 

* 

1 ctxCopy 
* 

Me. ctxCopy. Index  =  0 
Me . ctxCopy. Text  =  "&Copy" 

* ctxSaveAs 

Me , ctxSaveAs . Index  =  1 

Me . ctxSaveAs . Text  =  ■ Save  SAs ■ 

72 


C : \ Documents  and  Settings\t jb\My  Document s\ ... \IRMS_Proces sing  00\chart Dendrogram. vb 


4 


•Menultem3 

Me. Menultem3 . Index  =  2 
Me .Menu It em3 . Text  =  " 

t 

*  ctxPrint 
» 

Me . ctxPrint . Index  =  3 

Me.  ctxPrint  .Text  -  "&Print" 

« 

' Menultem6 

• 

Me . MenuItemG . Index  =  4 
Me .Menultem6 . Text  =  " - " 

« 

' ctxExit 

i 

Me. ctxExit . Index  =  5 

Me . ctxExit . Text  =  "E&xit" 

• 

' chartDendrogram 
• 

Me . AutoScaleBaseSize  =  New  System . Drawing . Size ( 5 ,  13) 

Me . ClientSize  =  New  System . Drawing . Size (422 ,  393) 

Me . ContextMenu  =  Me . ContextMenuDendrogram 
Me . Controls . Add (Me . chDendrogram) 

Me. Icon  =  CType (resources . GetObj ect ( "$this . Icon" ) ,  System. Drawing. Icon) 

Me. Name  =  "chartDendrogram" 

Me . StartPosition  =  System . Windows . Forms . FormStartPosition.CenterParent 
Me. Text  «  "chartDendrogram" 

CType (Me . chDendrogram,  System . ComponentModel . ISupportlnit ialize) . Endlnit ( ) 
Me . ResumeLayout ( False ) 

End  Sub 

#End  Region 

Private  mySamples  As  Integer 
Private  myVariables  As  Integer 
Private  mylnput_data  As  Array 
Private  mySampleNames  As  Array 
Private  myAxisLabels  As  Array 

Public  Property  Variables ()  As  Integer 
Get 

Return  myVariables 
End  Get 

Set(ByVal  Value  As  Integer) 
myVariables  =  Value 
End  Set 
End  Property 

Public  Property  Samples ()  As  Integer 
Get 

Return  mySamples 
End  Get 

Set(ByVal  Value  As  Integer) 
mySamples  =  Value 
End  Set 
End  Property 

Public  Property  Input_data ( )  As  Array 
Get 

Return  mylnput_data 
End  Get 

Set(ByVal  Value  As  Array) 
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mylnput_data  =  Value 
End  Set 
End  Property 

Public  Property  SampleNames ()  As  Array 
Get 

Return  myS ample Names 
End  Get 

Set {ByVal  Value  As  Array) 
mySampleNames  -  Value 
End  Set 
End  Property 

Public  Property  AxisLabels ()  As  Array 
Get 

Return  myAxisLabels 
End  Get 

Set (ByVal  Value  As  Array) 
myAxisLabels  =  Value 
End  Set 
End  Property 


Private  Sub  mnuFileClose_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System. 

Event Args) 

Me. Close () 

End  Sub 

Private  Sub  ClChartl_Load (ByVal  sender  As  System. Ob ject ,  ByVal  e  As  System. Event Args) 
Handles  chDendrogram . Load 

•List  sample  numbers 

Dim  SampleNumbers  As  Integer  =  Me . SampleNames .GetUpperBound (0) 

Dim  Counter  As  Integer 
Dim  newArray  As  Array 

'For  Counter  =  0  To  SampleNumbers  -  1 
1  Next 


Dim  chartData  As  Cl . Win.CIChart , ChartDataSeries 

Dim  chartDataXY  As  Cl .Win.CIChart .ChartData 

Dim  chart Labels  As  Cl .Win. CIChart . Chart Labels 

Dim  chartLabel  As  Label 

Dim  AxisCounter  As  Integer 

Dim  xAxisData (Samples  -  1)  As  Double 

Dim  yAxisDat a (Samples  -  1)  As  Double 

chDendrogram. Style . Border . BorderStyle  =  Cl . Win . CIChart . BorderStyleEnum . Solid 
chDendrogram. Style . Border . Thickness  =  1 

chDendrogram. Chart Area. AxisX, Text  =  ControlChars . Lf  +  "Sample" 

chDendrogram. Chart Area . Axis Y. Text  -  "Distance  of  Relatedness"  +  ControlChars . Lf  * 

chDendrogram. Header .Style . Font  =  New  Font ( "Arial" ,  10,  FontStyle . Bold) 
chDendrogram. Chart Area. AxisX. TickMinor  -  TickMarksEnum.None 

•Create  new  Array  with  SampleData 

Dim  tempAxisLabels (AxisLabels .GetUpperBound (1)  -  1)  As  Integer 
Dim  finalAxisLabels (AxisLabels .GetUpperBound (1)  -  1)  As  String 

For  Counter  =  0  To  AxisLabels . GetUpperBound (1)  -  1 

tempAxisLabels (Counter)  =  CType (AxisLabels .GetValue (1 ,  Counter  +  1),  Integer) 

Next 

Dim  templndex  As  Integer 

For  Counter  =  0  To  AxisLabels .GetUpperBound (1)  -  1 

templndex  =  CType (tempAxisLabels . GetValue (Counter) ,  Integer) 

finalAxisLabels (Counter)  =  CType (SampleNames .GetValue (templndex  -  1),  String) 

Next 
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■Add  labels 

With  chDendrogram . ChartArea . AxisX 

.AnnoMethod  =  Cl . Win . CIChart . Annotat ionMethodEnum . ValueLabels 
.ValueLabels . Clear ( ) 

. ValueLabels . AddNewLabel ( ) 

. AnnotationRotation  =  -30 

For  Counter  =  0  To  AxisLabels . GetUpperBound (1)  -  1 
.ValueLabels .AddNewLabel ( ) 

.ValueLabels (Counter) .Text  =  finalAxisLabels (Counter) 

.ValueLabels (Counter) . NumericValue  *  Counter  +  1 

Next 
End  With 

'Make  an  Array  of  only  the  vertical  distances 

Dim  interDistance (Input_data. GetUpperBound (0) )  As  Single 

For  Counter  =  0  To  CType ( I nput_dat a . GetUpperBound ( 0 ) ,  Integer) 

interDistance (Counter)  =  CType (Input_data .GetValue (Counter,  2),  Single) 

Next 

' Create  chart  area 

Dim  area  As  Area  =  chDendrogram . ChartArea 

area . Style . Border . BorderStyle  =  Cl . Win . CIChart . BorderStyleEnum . None 
area . Style . BackColor  =  Color . Transparent 
area. Visible  =  True 

1  Create  chart  group 

Dim  group  As  ChartGroup  =  chDendrogram . ChartGroups ( 0 ) 
group. ChartType  «  Chart2DTypeEnum . XYPlot 

'Create  data  and  data  series 
Dim  data  As  ChartData  =  group . ChartData 
Dim  s  As  New  ChartDataSeries 
data. Series List .Add (s) 

Dim  ps()  As  PointF 

1  Copy  in  a  zero  point 
s  =  New  ChartDataSeries 
data . Series List . Add (s) 

ps  =  New  PointF ()  {New  PointF ( 0 . OF,  0.0F),  New  PointF(0.0F#  0.0F)} 
s . PointData . CopyDataln (ps ) 

s.SymbolStyle. Shape  =  Cl . Win. CIChart . SymbolShapeEnum. None 
s . LineStyle . Color  =  Color. Black 

’Place  the  same  two  lines  on  first  two  Samples 
s  =  New  ChartDataSeries 
data . SeriesList . Add (s) 

ps  =  New  PointF ( )  {New  PointF (1. OF,  O.OF),  New  PointF(1.0F,  interDistance (0) ) } 
s . PointData . CopyDataln (ps) 

s.SymbolStyle. Shape  =  Cl .Win. CIChart . SymbolShapeEnum. None 
s . LineStyle . Color  *  Color. Black 
s . LineStyle . Thickness  =2 

s  =  New  ChartDataSeries 
data . SeriesList .Add(s) 

ps  =  New  PointF ()  {New  PointF (2. OF,  O.OF),  New  PointF(2.0F,  interDistance ( 0 )) } 
s . PointData. CopyDataln (ps ) 

s.SymbolStyle. Shape  =  Cl . Win. CIChart . SymbolShapeEnum. None 
s . LineStyle . Color  =  Color. Black 
s . LineStyle . Thickness  «  2 

•Connect  these  two  vertical  lines  with  a  "y-only"  line 
s  =  New  ChartDataSeries 
data . SeriesList . Add (s ) 

ps  =  New  PointF ()  {New  PointF (1. OF,  interDistance ( 0 )) ,  New  PointF (2. OF,  * 

interDistance (0) ) } 

s . PointData . CopyDataln (ps ) 
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s. Symbol Style. Shape  =  Cl -Win. CIChart .SymbolShapeEnum. None 
s.LineStyle. Color  =  Color. Black 
s.LineStyle.Thickness  =  2 

*  Populate  the  rest  of  the  grid  with  lines  and  crosses 
For  Counter  =  3  To  SampleNames .Get Upper Bound {0}  +  1 
s  =  New  ChartDataSeries 
data . SeriesList .Add (s) 

ps  =  New  PointFO  {New  Point F (Counter,  0.0F),  New  PointF (Counter, 
interDistance (Counter  -  2})} 

s . PointData . CopyDataln (ps) 

s . SymbolStyle . Shape  -  Cl .Win. CIChart . SymbolShapeEnum. None 
s.LineStyle. Color  =  Color. Black 
s.LineStyle.Thickness  =  2 

s  =  New  ChartDataSeries 
data. SeriesList .Add (s) 

ps  -  New  PointFU  {New  PointF (Counter  -  1.5P,  interDistance (Counter  -2)),  Newtf 
Point F (Counter,  interDistance (Counter  -  2))} 
s . PointData . CopyDataln (ps) 

s, SymbolStyle. Shape  =  Cl .Win. CIChart .Symbol ShapeEnum. None 
s.LineStyle. Color  =  Color. Black 
s.LineStyle.Thickness  =  2 

s  =  New  ChartDataSeries 
data. SeriesList .Add (s) 

ps  -  New  PointFO  {New  PointF (Counter  -  1.5F,  interDistance (Counter  -  2)),  Newtf 
PointF (Counter  -  1.5F,  interDistance (Counter  -  3))} 
s . PointData . CopyDataln (ps ) 

s .SymbolStyle .Shape  -  Cl .Win. CIChart . SymbolShapeEnum. None 
s.LineStyle. Color  =  Color. Black 
s.LineStyle.Thickness  -  2 


Next 

•Copy  in  a  zero  point  at  the  end 
s  =  New  ChartDataSeries 
data .SeriesList .Add (s) 

ps  =  New  PointFO  {New  PointF (SampleNames . GetUpperBound (0)  +  2,  0.0F),  New  PointF 
(SampleNames.GetUpperBound(O)  +  2#  0.0F)} 
s . PointData . CopyDataln (ps } 

s. Symbol Style. Shape  =  Cl .Win. CIChart . SymbolShapeEnum. None 
s.LineStyle. Color  =  Color. Black 

End  Sub 

Private  Sub  ctxCopy_Click (ByVal  sender  As  System. Ob j ect ,  ByVal  e  As  System. Event Args) 
Handles  ctxCopy. Click 

Dim  myDendrogram  As  chartDendrogram  =  Me 
rayDendrogram . chDendrogram . Save Image ( ImageForraat . Emf ) 

End  Sub 

Private  Sub  ctxSaveAs_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System.  *£ 

Event Args)  Handles  ctxSaveAs . Click 

Dim  lastFilterlndex  As  Integer  =  1 
Dim  myDendrogram  As  chartDendrogram  =  Me 
Dim  sfg  As  New  SaveFileDialog 

sfg. Filter  =  "Metafiles  (* .emf } j * .emf j "  +  "Bmp  files  (* .bmp) ( * .bmp| "  +  ttGif  files 
(* .gif ) | * -gif | "  +  "Jpeg  files  (* -jpg; *. jpeg) | *. jpg; * .jpegj "  +  "Png  files  {* .png) | * .pngtf 
|“  -f  "All  graphic  files  (*.  emf  ;*  .bmp;  *  .gif  jpg;  *.  jpeg;  *  .png)  |  *.  emf  ;*  .bmp;  *  .gif  jpgtf 
;* .jpeg; * .png" 

sfg.Filterlndex  =  lastFilterlndex 
sfg.OverwritePrompt  =  True 
sfg.CheckPathExists  =  True 
sfg.RestoreDirectory  =  False 
sfg. ValidateNames  =  True 
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If  sfg. ShowDialog ( )  =  DialogResult .OK  Then 
Dim  fn  As  String  =  sfg.FileName 
Dim  indext  As  Integer  =  fn. LastlndexOf ( " . "c) 
If  indext  <  0  Then 

indext  =  fn. Length  +  1 
fn  +=  " . emf" 

Else 

indext  +=  1 
End  If 

Dim  ext  As  String  =  fn . Substring ( indext ) 

Dim  imgfmt  As  ImageFormat  =  Nothing 


Select  Case  ext 
Case  "emf" 

imgfmt  =  ImageFormat . Emf 

myDendrogram. chDendrogram. Savelmage (fn,  imgfmt) 


Case  "bmp" 

imgfmt  =  ImageFormat . Bmp 
Case  "gif" 

imgfmt  =  ImageFormat . Gif 


Case  "jpeg",  "jpg" 

imgfmt  =  ImageFormat . Jpeg 

Case  "png" 

imgfmt  =  ImageFormat . Png 

Case  Else 
Return 
End  Select 


lastFilterlndex  =  sf g . Filterlndex 


If  Not  imgfmt . Equals (ImageFormat . Emf )  Then 

Dim  img  As  Image  -  myDendrogram . chDendrogram . Getlmage ( ) 
img.Save(fn,  imgfmt) 
img. Dispose ( ) 

End  If 
End  If 

sfg. Dispose ( ) 

End  Sub 


Private  Sub  ctxExit_Click (ByVal  sender  As  System. Obj ect ,  ByVal  e  As  System. EventArgs)  wr 
Handles  ctxExit . Click 
Me . Close ( ) 

End  Sub 


Private  Sub  chDendrogram_Click (ByVal  sender  As  Object,  ByVal  e  As  System . EventArgs )  * 

Handles  chDendrogram . Click 
Me .Activate ( ) 

End  Sub 

Private  Sub  ctxPrint_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System . EventArgs )  nf 
Handles  ctxPrint . Click 

Dim  doc  As  New  CIPrintDocument 
Doc2D_dendrogram (doc ,  New  Gene rat eEventArgs) 

Dim  aprev  As  New  Final_Report 

AddHandler  doc . GenerateDocument ,  New  GenerateEventHandler (AddressOf  kT 

Doc2D_dendrogram) 

aprev. CIPrintPreviewl . Document  =  doc 
aprev . ShowDialog ( ) 

RemoveHandler  doc .GenerateDocument ,  New  GenerateEventHandler (AddressOf 
Doc2 D_dendrogr am ) 
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aprev . Dispose { ) 

*  barchart . chartBar . PrintChart ( Pr intScaleEnum . SealeToFi t ) 

End  Sub 

Private  Sub  Doc2B_dendrogram(ByVal  doc  As  CIPrintDocument ,  ByVal  e  As 
GenerateEvent Args ) 

Dim  CIChartXRaw  As  chartDendrogram  =  Me 

Dim  ClChartl  As  Cl . Win. CIChart .CIChart  =  CIChart IRaw.chDendrogram 
With  doc 

.DefaultUnit  =  UnitTypeEnum.Mm 
. StartDoc {} 

* .Renders lockText (* Chart w ,  50,  50,  Nothing) 

Dim  ww  As  Double  =  (CType { .BodyAreaSize .Width,  Double))  *  0.9 
.RenderBlockClPrintable (ClChartl ,  ( .BodyAreaSi ze. Width  *  0.9)) 

.CanChangePageMe tries  () 

. RenderBlockGraphicsBegin  ( ) 

. EndDoc { ) 

End  With 
End  Sub 
End  Class 
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Imports  System. Text . RegularExpressions 
Imports  Cl . Win. ClFlexGrid 


Public  Class  cluster 

Private  myLinkages  As  linkages .pdist_linkage 

Private  myClusterLinks  As  clusters_t jb . clusterlinks 

Private  myDendrogram  As  dendrogram_t jb . dendrogramt jb_output 

Private  myAxisLabel  As  Object 

Private  mySamples  As  Integer 

Private  myVariables  As  Integer 

Private  mySelectedSamples ( )  As  Object 

Private  myTempData  As  Object 

Private  myRichText  As  String 


Public  Readonly  Property  AxisLabelO  As  Object 
Get 

Return  myAxisLabel 
End  Get 
End  Property 

Public  Readonly  Property  Samples ()  As  Integer 
Get 

Return  mySamples 
End  Get 
End  Property 

Public  Readonly  Property  Variables ()  As  Integer 
Get 

Return  myVariables 
End  Get 
End  Property 

Public  Readonly  Property  SelectedSamples ( )  As  Object 
Get 

Return  mySelectedSamples 
End  Get 
End  Property 

Public  Readonly  Property  TempDataO  As  Object 
Get 

Return  myTempData 
End  Get 
End  Property 

Public  Readonly  Property  RichTextO  As  String 
Get 

Return  myRichText 
End  Get 
End  Property 


Friend  Sub  New(ByRef  DataTable  As  Data_Table) 

Dim  myLinkages  As  New  linkages . pdist_linkage 

Dim  myClusterLinks  As  New  clusters_tjb . clusterlinks 

Dim  myDendrogram  As  New  dendrogram_t jb . dendrogram_t j b_output 

Dim  SelectSamples  As  New  Select_Samples 

Dim  i  As  Integer 

i  =  DataTable . DataTable . Rows . Count  -  1 

'Define  a  grid  with  all  of  the  data  in  column  1  and  2 

Dim  SampleNameList  As  New  Cl . Win. ClFlexGrid . CellRange 
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SampleNameList  =  DataTable .DataTable . GetCellRange (1 ,  1,  i,  1) 

Dim  newlineString  As  String  =  Nothing 
Dim  Counter  As  Integer 

Dim  sampleNameClip  As  String  =  SampleNameList . Clip 

'Make  the  clip  devoid  of  whitespace  cells 
For  Counter  =  1  To  i 

If  CType (DataTable. DataTable (Counter,  2),  String)  =  "1”  Then 

newlineString  =  newlineString  &  CType (DataTable. DataTable (Counter,  1), 
String)  &  Environment .NewLine 
End  If 

Next 

'Open  up  the  Sample  Selection  Dialog 
SelectSamples . samples  =  newlineString 

Try 

SelectSamples .Text  =  "Choose  Samples  for  Cluster  Analysis" 

SelectSamples . ShowDialog ( ) 

Catch  ex  As  Exception 

MessageBox. Show (ex. Message,  "Error  creating  dialog",  MessageBoxButtons .OK, 
Mess  ageBoxI con . Exc 1 amat i on ) 

End  Try 

If  SelectSamples , DialogResult  =  DialogResult . Cancel  Then 
Return 
End  If 

'Determine  which  samples  where  selected  and  save  the  names  in  a  String  Clip 
Dim  SelectedSamples  As  String 

SelectedSamples  =  SelectSamples .SampleChoice ( ) 

Dim  q  As  Integer  =  0 

*  Find  where  the  alpha  next  to  \n  characters  are 
Dim  re  As  New  Regex ( * [a-zA-ZO -9 J \xOD" ) 

Dim  me  As  MatehCollection  =  re .Matches (SelectedSamples ) 

'Find  out  how  many  alpha  or  numbers  next  to  \n  characters  there  are 
q  -  me . Count 

'Make  an  array  of  sample  names  displayed  to  user 
Dim  SelectedSampleArray (q,  1)  As  String 
Dim  SampleCounter  As  Integer 
For  SampleCounter  -  0  To  q 

SelectedSampleArray (SampleCounter,  0)  =  CType (SelectSamples . SelectSamples 
(SampleCounter  +1,  1),  String) 

SelectedSampleArray (SampleCounter ,  1)  =  CType (SelectSamples .SelectSamples 
(SampleCounter  -i-  1,  2)  ,  String) 

Next 

'Make  an  array  of  selected  samples  to  be  processed 
Dim  SelectedSamplesUser (q)  As  String 
Dim  arraynumber  As  Integer  =  0 
For  SampleCounter  =  0  To  q 

If  SelectedSampleArray (SampleCounter ,  0)  =  "True"  Then 

SelectedSamplesUser (arraynumber)  =  SelectedSampleArray (SampleCounter ,  1) 
arraynumber  =  arraynumber  +  1 
End  If 

Next 

' Check  to  make  sure  at  least  2  samples  were  chosen 
If  arraynumber  <  2  Then 

MessageBox. Show ( "You  must  select  at  least  two  samples",  "Sample  Selection", 
MessageBoxButtons .OK,  MessageBoxIcon . Exclamation) 

Return 
End  If 
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'Redimension  the  selected  sample  array 

ReDim  Preserve  SelectedSamplesUser (arraynumber  -  1) 

’Find  out  how  many  columns  have  data  in  them 
Dim  Numberof Variables  As  CellRange 

Numberof Variables  =  DataTable .DataTable. GetCellRange (1,  3,  CType (DataTable . 
DataTable . Rows . Count ,  Integer)  -  1,  CType (DataTable .DataTable . Cols . Count ,  Integer)  - 
1) 

Dim  ColumnData,  Adj acentColumnData  As  CellRange 
Dim  1  As  Integer  =  0 
Dim  k,  m  As  Integer 


'Count  the  number  of  filled  in  columns  (i.e.  how  many  variables) . 

Dim  rel  As  New  Regex ( " [0- 9] " ) 

For  k  -  3  To  CType (DataTable . DataTable . Cols . Count ,  Integer)  -  2 

ColumnData  =  DataTable . DataTable . GetCellRange ( 1 ,  k,  CType (DataTable . DataTable . 
Rows. Count,  Integer)  -  1,  k) 

'provide  a  counter  to  make  sure  all  columns  are  contiguous 
Adj acentColumnData  =  DataTable .DataTable . GetCellRange (1 ,  k  +  1,  CType 
(DataTable . DataTable . Rows . Count ,  Integer)  -  1,  k  +  1) 

If  Not  rel . Matches (ColumnData . Clip) . Count  *  0  Then 
1  =  1  +  1 
End  If 

'count  if  columns  are  not  adjacent  (i.e.  any  empty  columns  in  between) 

If  Not  rel .Matches (ColumnData . Clip) . Count  =  0  And  Not  rel. Matches 
(Adj acentColumnData . Clip) . Count  =  0  Then 
m  =  m  +  1 
End  If 

Next 

'Count  last  column  if  it  has  data  in  it 
k  =  k  +  1 

If  Not  rel .Matches (ColumnData . Clip) . Count  =  0  Then 
1  =  1  +  1 
End  If 

'Make  user  reformat  data  so  the  routine  will  not  break 
If  Not  m  =  1  -  1  Then 

MessageBox. Show ( " It  appears  that  you  have  a  column  with  missing  data.  Please 
delete  or  fill  in  any  columns  with  no  data  that  are  inbetween  data-bearing  columns", 
"Error",  MessageBoxButtons . OK,  MessageBoxIcon . Error ) 

Return 
End  If 

'Determine  the  number  of  replicates 

Dim  Replicates  As  Integer  =  CType (DataTable . Repl icates ,  Integer) 

If  Replicates  =  Nothing  Then 

Dim  ReplicateCells  As  CellRange 

ReplicateCells  =  DataTable. DataTable. GetCellRange (1,  2,  CType (DataTable . 
DataTable . Rows . Count  -  1,  Integer),  2) 

Dim  maxReplicate  As  Integer 

maxReplicate  =  CType (DataTable .DataTable .Aggregate (AggregateEnum. Max, 
ReplicateCells,  AggregateFlags . None) ,  Integer) 

Replicates  =  maxReplicate 


End  If 

'Create  an  array  to  "hold"  the  averages  and  STDs  of  each  group  of  data 

Dim  x,  z  As  Integer 

Dim  AverageRange  As  CellRange 

Dim  n  As  Integer  =  SelectedSamplesUser . GetLength ( 0 ) 

Dim  SamplesToBeProcessed (n  -  1)  As  String 
Dim  ClusterToBe (n  -  1,  1  -  1)  As  Double 
Dim  ClusterStdsToBe (n  -  1,  1  -  1)  As  Double 
For  m  =  0  To  n  -  1 

SamplesToBeProcessed (m)  =  SelectedSamplesUser (m) . ToString 
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For  k  =  1  To  CType (DataTable , DataTable . Rows . Count ,  Integer}  -  1 
ColumnData  =  DataTable .DataTable .GetCellRange (k,  1,  k,  1} 

If  ColumnData. Cl ip  =  SelectedSamplesUser (m)  Then 
For  z  =  3  To  2  4  1 

AverageRange  =  DataTable .DataTable .GetCellRange (k,  z,  k  +  x 

Replicates  -  1,  z) 

ClusterToBe (m,  z  -  3}  =  CType (DataTable .DataTable .Aggregate  1 1 

(AggregateEnum. Average,  AverageRange,  Aggr egateF lags .None) ,  Double) 

ClusterStdsToBe (m,  z  -  3}  =  CType (DataTable. DataTable. Aggregate 
(AggregateEnum. Std,  AverageRange ,  AggregateFlags .None) ,  Double) 

Next 
End  If 

Next 

Next 


Dim  pdist  As  Object 

Dim  1 inkage_output  As  Object 

Try 

Call  myLinkages. toms_p_dist (1,  pdist,  ClusterToBe) 

Catch  ex  As  Exception 

*Will  catch  any  error  that  we're  not  explicitly  trapping. 

MessageBox. Show ( "Your  Data  Table  has  some  problem  with  the  * pdist*  routine. 
Error  message;  "  &  ex. Message,  "Serious  Data  Formatting  Problem",  MessageBoxButtons 
,  MessageBoxIcon. Stop) 

End  Try 

Try 

Call  myClusterLinks . toms_linkage (1,  linkage_output ,  pdist) 

Catch  ex  As  Exception 

*Will  catch  any  error  that  we* re  not  explicitly  trapping. 

MessageBox. Show (** Your  Data  Table  has  some  problem  with  the  'linkage*  routine. 
Error  message;  "  &  ex. Message,  "Serious  Data  Formatting  Problem”,  MessageBoxButtons.  yt 
OK,  MessageBoxIcon.Stop) 

Return 
End  Try 

Dim  axis_label  As  Object 
Try 

Call  myDendrogram . dendrogram_output ( 1 ,  axis  label,  linkage_output) 

Catch  ex  As  Exception 

*WI11  catch  any  error  that  we're  not  explicitly  trapping. 

MessageBox. Show {'* Your  Data  Table  has  some  problem  with  the  'dendrogram* 
routine.  Error  message;  11  &  ex. Message,  "Serious  Data  Formatting  Problem”, 
MessageBoxButtons .OK,  MessageBoxIcon.Stop) 

Return 
End  Try 

Dim  tempLinkage  As  Array  =  CType (linkage_output ,  Array) 

Dim  newtempdata (n  -  2,  2)  As  Object 
For  m  =  0  To  n  -  2 
For  k  =  0  To  2 

newtempdata (m,  k)  -  tempLinkage .GetValue (m  +  1,  k  +  1) 

Next 

Next 

'Make  a  string  of  axis  labels 
Dim  axis_labelsText  As  String  = 

Dim  axisLabelsTemp  As  Integer 

Dim  axis_labels  As  Array  =  CType (axis_label ,  Array) 

For  Counter  -  0  To  SelectedSamplesUser .GetUpperBound (0 )  -  1 

axisLabelsTemp  =  CType (axis_labels .GetValue (1 ,  Counter  4  1),  Integer) 
axis_labelsText  =  axis_labelsText  +  CType (SelectedSamplesUser .GetValue 
(axisLabelsTemp  -  1),  String)  4  ControlChars . Lf 
Next 
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•Make  a  string  of  interdistances 
Dim  interDistanceText  As  String  -  " " 

Dim  interDistanceRound  As  Single 
Dim  interDistanceTemp  As  Double 

Dim  interDistance {newtempdata . GetUpperBound (0) )  As  Single 
For  Counter  =  0  To  CType (newtempdata. GetUpperBound (0) ,  Integer) 

interDistanceTemp  =  CType (newtempdata . GetValue (Counter ,  2),  Double) 
interDistanceRound  =  CType (Math . Round ( interDistanceTemp f  3),  Single) 
interDistanceText  =  interDistanceText  +  CType (interDistanceRound,  String)  + 
ControlChars . Lf 
Next 


Dim  richText  As  String  =  "The  Cluster  analysis  completed  successfully. " 

+  ControlChars . Lf  +  ControlChars . Lf  +  _ 

"In  addition  to  PCA  analysis,  clustering  analysis  can  be  used  to  determine  a  * 

relative  'distance'  between  relations  in  multivariate  data.  This  would  be  analogous  totf 
plotting  a  family  tree  and  using  one  inch  to  represent  each  generation  of  distance 
between  progenitors  and  progeny.  The  length  of  vertical  lines  in  clusters  is 
indicative  of  the  'distance'  of  relatedness  between  wells.  "  _ 

+  ControlChars . Lf  +  ControlChars . Lf  + 

"The  samples,  in  order  of  relatedness  are  listed  below:  " 

+  ControlChars. Lf  +  ControlChars . Lf  +  _ 
axis_labelsText  _ 

+  ControlChars . Lf  +  ControlChars . Lf  +  _ 

"The  first  two  are  most  related,  with  each  after  more  distantly  related.  The 
distance  of  relation  are  given  in  the  Dendrogram  plot  and  below:" 

+  ControlChars . Lf  +  ControlChars . Lf  +  _ 
interDistanceText 


Me .myAxisLabel  =  axis_label 
Me.mySamples  =  n 
Me . myVariables  =  1 

Me . mySelectedSamples  =  SelectedSamplesUser 
Me . myTempData  =  newtempdata 
Me . myRichText  =  richText 

End  Sub 


End  Class 
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Imports  Cl .Win, ClFlexGrid 
Imports  System. Text . RegularExpressions 

Public  Class  Data_Table 

Inherits  System .Windows . Forms . Form 

#Region  Windows  Form  Designer  generated  code  11 

Public  Sub  New() 

MyBase.NewU 

*This  call  is  required  by  the  Windows  Form  Designer. 

InitializeComponent () 

*Add  any  initialization  after  the  Initial izeComponent ( )  call 
End  Sub 

1  Form  overrides  dispose  to  clean  up  the  component  list. 

Protected  Overloads  Overrides  Sub  Dispose (ByVal  disposing  As  Boolean) 

If  disposing  Then 

If  Not  (components  Is  Nothing)  Then 
components . Dispose ( } 

End  If 
End  If 

MyBase . Dispose (disposing) 

End  Sub 

•Required  by  the  Windows  Form  Designer 

Private  components  As  System. Component Model . I Container 

•NOTE;  The  following  procedure  is  required  by  the  Windows  Form  Designer 
*It  can  be  modified  using  the  Windows  Form  Designer. 

•Do  not  modify  it  using  the  code  editor. 

Friend  WithEvents  DataTable  As  Cl . Win. ClFlexGrid, ClFlexGrid 
Friend  WithEvents  ContextMenul  As  System. Windows . Forms . ContextMenu 
Friend  WithEvents  MenuItemB  As  System. Windows . Forms .Menul tern 
Friend  WithEvents  Menultera7  As  System. Windows . Forms .Menultem 
Friend  WithEvents  mnuContextCut  As  System. Windows .Forms .Menultem 
Friend  WithEvents  mnuContextCopy  As  System. Windows . Forms .Menultem 
Friend  WithEvents  mnuContent Paste  As  System, Windows . Forms .Menultem 
Friend  WithEvents  mnuContextClearContents  As  System, Windows .Forms .Menultem 
Friend  WithEvents  Menulteml  As  System. Windows . Forms .Menultem 
< System. Diagnostics. DebuggerStepThroughO >  Private  Sub  InitializeComponent { ) 

Dim  resources  As  System. Resources . ResourceManager  =  New  System. Resources . 
ResourceManager (GetType (Data_Table) } 

Me. DataTable  =  New  Cl .Win. ClFlexGrid. ClFlexGrid 

Me . ContextMenul  =  New  System . Windows . Forms . ContextMenu 

Me , mnuContextCut  -  New  System . Windows . Forms .Menultem 

Me . mnuContextCopy  =  New  System. Windows . Forms . Menultem 

Me. mnuContent Paste  =  New  System. Windows . Forms .Menultem 

Me. MenuItemB  =  New  System . Windows , Forms . Menultem 

Me .mnuContextClearContents  =  New  Sys tem. Windows . Forms .Menultem 

Me. Menu I tern?  -  New  System. Windows . Forms .Menultem 

Me. Menulteml  =  New  System. Windows . Forms .Menultem 

CType (Me .DataTable,  System. ComponentModel . ISupport Initialize) .Beginlnit ( ) 

Me . SuspendLayout ( ) 

* 

•DataTable 

* 

Me. DataTable. AccessibleDescription  -  "" 

Me . DataTable . AccessibleName  -  "Da taxable” 

Me. DataTable .AllowAddNew  =  True 
Me .DataTable .AllowDelete  -  True 

Me . DataTable . AllowDragging  =  Cl . Win . ClFlexGrid . AllowDraggingEnum . None 
Me , DataTable . AllowResizing  =  Cl . Win . ClFlexGrid . AllowResizingEnum. Both 
Me .DataTable. AllowSorting  =  Cl .Win. ClFlexGrid .AllowSort ingEnum, None 
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Me . DataTable . BackColor  =  System. Drawing . SystemColors . Window 
Me . DataTable . Columnlnf o  =  "25, 1, 0, 0, 0 , 8  5 , Columns : 0 {width : 28 ; AllowSort ing : False; }  11  * 


Sc  Microsoft. VisualBasic. ChrW{9)  &  " 1 {width : 13 0 ; AllowSorting : Fa"  Sc  _ 

"lse /TextAlign: Lef tCenter ; } "  &  Microsoft .VisualBasic. ChrW (9)  &  "2 {Width : 57 ;  * 

AllowSorting: False /TextAlign : CenterCenter ; "  & 

" ImageAl ign: CenterCenter ; } "  &  Microsoft .VisualBasic. ChrW(9)  &  "3{Width:70;  * 

AllowSorting : False /TextAlign: CenterCenter; } "  &  _ 

"«  &  Microsoft. VisualBasic. ChrW(9)  &  "4 {Width : 70 /AllowSorting : False ; TextAlign :  * 

CenterCenter; } "  &  Microsoft. VisualBasic. ChrW(9)  &  "5 {Width: 70 /AllowSorting : «  &  _ 

"False ;TextAlign: CenterCenter / } "  &  Microsoft .VisualBasic. ChrW (9)  &  "6{Width:70;  * 

AllowSorting : False ; TextAlign: CenterCen"  &  _ 


"ter/}"  &  Microsoft. VisualBasic. ChrW(9)  &  »7{width: 70 /AllowSorting: False /TextAlign* 
: CenterCenter "  &  Microsoft .VisualBasic . ChrW ( 9 )  &  " 8 { Width : 70 ; AllowSor "  &  _ 

"ting: False;TextAlign:CenterCenter ; } "  &  Microsoft. VisualBasic. ChrW(9)  &  "9{width:  * 
70 /AllowSorting: False /TextAlign: Cent"  &  _ 

"erCenter / } *  &  Microsoft .VisualBasic. ChrW (9)  Sc  " 10 {Width: 70 /AllowSorting : False ;  * 

TextAlign: CenterCenter ; } "  &  Microsoft .VisualBasic . ChrW ( 9)  &  "ll{width: 70 ;A"  &  _ 

"llowSorting : False /TextAlign: CenterCenter ; } “  &  Microsoft . VisualBasic . ChrW (9)  &  "12* 
{width: 70 /AllowSorting: False /TextAl "  &  _ 

"ign: CenterCenter/}"  &  Microsoft .VisualBasic . ChrW ( 9)  &  "13 {width: 70 /AllowSorting:  * 
False /TextAlign: CenterCenter ;} "  &  Microsoft .VisualBasic . ChrW { 9)  &  " 14 {Wi"  Sc 

"dth: 70 /AllowSorting : False /TextAlign: CenterCenter; }  11  &  Microsoft. VisualBasic. ChrW  * 
(9)  Sc  "  15 {width :  7 0  /  AllowSorting :  Fals "  &  _ 

"e /TextAlign: CenterCenter ; } "  &  Microsoft. VisualBasic. ChrW(9)  &  " 16 {width : 70 /  * 

AllowSorting: False /TextAlign: CenterCenter"  &  _ 

";}"  &  Microsoft .VisualBasic. ChrW(9)  &  "17{Width: 70 /AllowSort ing : False / TextAlign :  * 
CenterCenter;}"  &  Microsoft .VisualBasic. ChrW (9)  &  "18 {Width: 70 /AllowSort "  &  _ 

"ing : False /TextAl ign: CenterCenter / } "  &  Microsoft .VisualBasic . ChrW (9)  &  "19{Width:  * 
70 /AllowSorting : False /TextAlign: Cent "  &  _ 

"erCenter;}"  &  Microsoft. VisualBasic. ChrW (9)  &  "20 {Width: 70 /AllowSorting: False ;  * 

TextAlign: CenterCenter; } "  &  Microsoft . VisualBasic . ChrW ( 9)  &  "21 {Width: 70 ; A"  &  _ 

"llowSorting : False /TextAlign: CenterCenter; } "  &  Microsoft. VisualBasic. ChrW{9)  &  "22* 
{Width:70;AllowSorting:False/TextAl"  &  _ 

" ign: CenterCenter; } "  &  Microsoft. VisualBasic. ChrW (9)  &  "23 {Width: 70 /AllowSorting:  * 
False /TextAl ign: CenterCenter ;} "  &  Microsoft . VisualBasic . ChrW ( 9 )  &  "24{wi"  &  _ 

"dth : 70 /AllowSorting : False/TextAlign: CenterCenter; } "  &  Microsoft . VisualBasic . ChrW  * 
(9) 

Me . DataTable . ContextMenu  =  Me . ContextMenul 

Me . DataTable . Dock  =  System. Windows . Forms . DockStyle . Fill 

Me . DataTable . ExtendLastCol  =  True 

Me. DataTable. FocusRect  =  Cl . Win. ClFlexGrid. FocusRectEnum. Inset 
Me .DataTable . ForeColor  =  System. Drawing. SystemColors . WindowText 
Me . DataTable . HighLight  -  Cl .Win . ClFlexGrid . HighLightEnum. WithFocus 
Me . DataTable . ImeMode  =  System. Windows . Forms . ImeMode . On 

Me . DataTable . KeyActionTab  =  Cl . Win . ClFlexGrid . KeyActionEnum . MoveAcross 
Me . DataTable . Location  =  New  System. Drawing . Point (0 ,  0) 

Me . DataTable .Name  =  "DataTable" 

Me . DataTable . Rows . Count  =  750 
Me . DataTable . ScrollTips  =  True 
Me . DataTable . ShowErrors  =  True 
Me .DataTable . ShowSort  =  False 

Me . DataTable . Size  =  New  System . Drawing . Size ( 715 ,  429) 

Me . DataTable . Styles  =  New  Cl .Win. ClFlexGrid . CellStyleCollect ion { "Fixed{BackColor :  * 


Control ; ForeColor : ControlText ; Border : Flat , 1 ,  ControlDark , Both; } "  &  Microsoft .  * 

VisualBasic . ChrW ( 9)  &  "Hi"  &  _ 

"ghlight {BackColor :Highlight ; ForeColor : HighlightText ; } "  &  Microsoft . VisualBasic .  * 

ChrW  (9)  Sc  "Search {BackColor  : Highlight "  &  _ 

" /ForeColor: HighlightText; }"  &  Microsoft . VisualBasic . ChrW ( 9 )  &  " Frozen{BackColor :  * 
Beige;}"  &  Microsoft . VisualBasic . ChrW ( 9)  &  " EmptyArea{ BackColor :AppWorks"  & 

"pace /Border: Flat , 1 , ControlDarkDark , Both ; } "  &  Microsoft. VisualBasic. ChrW (9)  &  * 

"GrandTotal {BackColor : Black ; ForeColor :W"  & 

"hite;}"  Sc  Microsoft. VisualBasic. ChrW(9)  &  "SubtotalO {BackColor :ControlDarkDark;  * 
ForeColor : White; } "  &  Microsoft .VisualBasic . ChrW (9 )  Sc  "Subtotall {BackColor "  &  _ 

" : ControlDarkDark; ForeColor : White / } "  &  Microsoft. VisualBasic. ChrW(9)  &  "Subtotal2  * 
{BackColor : ControlDarkDark; ForeColor"  & 


" : White ; } "  &  Microsoft . VisualBasic . ChrW ( 9 )  &  "Subtotal3 {BackColor : ControlDarkDark; * 
ForeColor :White; } "  &  Microsoft .VisualBasic . ChrW (9)  &  "Subtotal4 {BackCol "  &  _ 
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"or ;ControlDarkDark; ForeColor: White; } *  &  Microsoft . VisualBasic . ChrW ( 9)  & 
"Subtotals {BackColor:ControlDarkDark;ForeCol"  &  _ 

"or :White; } ”  &  Microsoft .VisualBasic . ChrW (9) ) 

Me . DataTable . Subtotal Position  =  Cl . Win, ClFlexGrid . SubtotalPositionEnum.BelowData 
Me.DataTable.Tablndex  =  0 

f 

*  ContextMenul 

* 

Me, ContextMenul ,MenuItems .AddRange (New  System. Windows . Forms .Menul tem {)  {Me. 
mmiContextCut ,  Me.mnuContextCopy,  Me .mnuContent Paste,  Me.MenuIteml ,  Me.MenuItemS,  Me. 
mmiContextClearContents,  Me .Menultem?} ) 

1 mnuContextCut 

t 

Me . mnuContextCut . Index  =  0 
Me. mnuContextCut .Text  =  "Cu&t" 

i 

'mnuCont ext Copy 

i 

Me.mnuContextCopy. Index  =  1 
Me. mnuContext Copy .Text  =  "&Copyn 

*  mnuContent Paste 
» 

Me. mnuContent Paste. Index  -  2 
Me .mnuContent Paste .Text  =  "&Paste" 

'Menu Items 

Me .MenuItemS . Index  =  4 

Me.MenuItem5.Text  =  "^Delete  Column (s } " 

t 

*  mmiContextClearContents 

Me. mnuContextClearContent s . Index  «  5 
Me .mmiContextClearContents .Text  =  "Clear  Co&ntents" 

* 

'Menultem? 

» 

Me. Menul tern? . Index  -  6 
Me.MenuItem7.Text  = 

i 

'Menulteml 

i 

Me .Menul teml , Index  -  3 

Me .Menu It eml .Text  -  "^Insert  Column (s ) " 

* 

*Data_Table 
» 

Me. AutoScaleBaseSize  =  New  System. Drawing. Size (5 ,  13} 

Me.ClientSize  =  New  System. Drawing . Size (715 #  429} 

Me . ContextMenu  =  Me . ContextMenul 
Me . Controls .Add (Me .DataTable) 

Me. Icon  =  CType (resources .GetObject ( "$this , Icon" ) ,  System, Drawing, Icon) 

Me, Name  =  "DataTable" 

Me . StartPosit ion  =  System . Windows . Forms . FormStartPosition. CenterParent 
Me. Text  =  "Data  Table" 

CType (Me . DataTable,  System, ComponentModel . ISupport Initialize) , Endlnit ( ) 

Me . Resume Layout (False) 

End  Sub 

#End  Region 

Private  mTableName  As  String 
Public  Property  TableNameO  As  String 
Get 
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Return  mTableName 
End  Get 

Set (ByVal  Value  As  String) 
mTableName  =  Value 
End  Set 
End  Property- 

Private  mReplicates  As  String 

Public  Property  Replicates ()  As  String 
Get 

Return  CType {mReplicates ,  String) 

End  Get 

Set (ByVal  Value  As  String) 
mReplicates  =  Value 
End  Set 
End  Property 


Private  mColumnHeaders  As  String 
Public  Property  ColumnHeaders ( )  As  String 
Get 

Return  CType (mColumnHeaders ,  String) 

End  Get 

Set (ByVal  Value  As  String) 
mColumnHeaders  =  Value 
End  Set 
End  Property 

#Region  "Data  Table  initial  setup" 

Private  Sub  Data_Table_Load (ByVal  sender  As  System. Object ,  ByVal  e  As  System. 
EventArgs)  Handles  MyBase . Load 

'Determine  the  number  of  active  Data  Tables 

Dim  NumberOf Forms  As  Array 

NumberOf Forms  =  MdiParent .MdiChildren 

'Increment  the  number  of  the  active  form  based  on  ones  already  open 
Dim  i  As  Integer 

i  =  NumberOf Forms .GetUpperBound ( 0) 

Me. Text  =  "Data  Table  "  &  i  +  1 
TableName  -  Me. Text 

'Place  sample  name  and  replicate  in  column  headers  if  no  variable  names  are 
specified 

If  Me . ColumnHeaders  =  ""  Then 

Me . ColumnHeaders  =  " | SamplelD ] Replicate" 

Dim  cols  As  String  =  Me . ColumnHeaders 
'Setup  the  column  split  character  as  | 

Dim  colNames  As  String ()  =  cols . Split (CType ( ■ | « ,  Char)) 

Dim  z  As  Integer 

'Fill  from  the  third  column  with  the  names 
For  z  =  1  To  2 

DataTable(0,  z)  =  colNames  (z) 

DataTable . Cols (z) .Name  =  colNames(z) 

Next 
End  If 

'If  user  chooses  to  name  columns  with  variable  names 
If  Not  Me . ColumnHeaders  =  ""  Then 
'set  up  columns 

'Find  out  how  many  individual  variable  names  exist 

Me. ColumnHeaders  =  " | SamplelD | Replicate | »  &  Me. ColumnHeaders 

Dim  q  As  Integer  =  0 

'Find  where  the  \n  characters  are 

Dim  re  As  New  Regex {" \xOD" ) 

Dim  me  As  MatchCollection  =  re .Matches (Me . ColumnHeaders) 
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'Find  out  how  many  \n  characters  there  are 
q  »  me. Count 

*  Replace  the  \n  characters  with  | 

Me.ColumnHeaders  =  re. Replace (Me.ColumnHeaders,  "XxOD*',  *|») 

*  set  up  columns 

Dim  cols  As  String  =  Me.ColumnHeaders 

*  Setup  the  column  split  character  as  | 

Dim  colNames  As  String ()  =  cols . Split (CType ( M j " ,  Char}) 

Dim  z  As  Integer 

*Fill  from  the  third  column  with  the  names 
For  z  =  1  To  q 

DataTable (0,  z)  =  colNames (z) 

DataTable .Cols (z) .Name  -  colNames (z) 

Next 
End  If 

'The  following  formatting  applies  to  all  rows  and  columns 

'Populate  the  0  column  rows  with  row  number 

Dim  y  As  Integer 

Dim  rowNames  As  String 

For  y  as  1  To  CType (DataTable .Rows. Count,  Integer)  -  1 
DataTable. Rows (y) .Caption  =  CType (y,  String) 

Next 

'Populate  the  replicates  column  with  user  specified  number  of  replicates. 
Dim  countColumn  As  Integer 

For  countColumn  =  1  To  CType (Me. Replicates ,  Integer) 

For  y  =  countColumn  To  CType (DataTable .Rows , Count ,  Integer)  -  1 
DataTable. SetData (y,  2,  CType (countColumn,  String)) 
y  =  y  +  (CType (Me .Replicates,  Integer)  -  1) 

Next 

Next 

'Format  each  first  replicate  number  to  left  justify 
Dim  cs  As  CellStyle  =  DataTable . Styles .Add ( "First  ** ) 
cs. Text Align  =  Text AlignEnum. Left Center 
Dim  CountCell  As  Integer 

For  CountCell  =  0  To  CType (DataTable. Rows. Count ,  Integer)  -  1 
If  Val (DataTable (CountCell ,  2))  Then 

DataTable. SetCellStyle (CountCell,  2,  cs) 

End  If 

Next 

'Set  the  replicate  number  column  to  be  non-editable 
DataTable .Cols (2) . AllowEditing  =  False 

'Set  column  data  type  to  Double  for  each  data  input  column 
For  countColumn  =  3  To  CType (DataTable .Cols .Count ,  Integer)  -  1 
DataTable. Cols (countColumn) .DataType  =  Get Type (Double) 

Next 


Dim  temp  As  Object  =  DataTable .GetType .Get Properties ( } 


End  Sub 


#End  Region 

Private  Sub  Data_Table_ValidateEdit (ByVal  sender  As  Object,  ByVal  e  As 
ValidateEditEventArgs)  Handles  DataTable .Val idateEdit 

*  validate  amounts  to  make  sure  they  are  del  13  C  values 
If  DataTable .Cols (e .Col) .DataType  Is  GetType (Double)  Then 
Try 

Dim  dbl  As  Double  =  Double . Parse (DataTable . Editor .Text () ) 
If  dbl  <  -100  Or  dbl  >  60  Then 
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MessageBox . Show ( "Value  does  not  appear  to  be  a  PDB  stardardized  * 

isotope  value,  please  try  again",  "Error") 
e. Cancel  =  True 
End  If 
Catch 

e. Cancel  =  True 
End  Try 
End  If 
End  Sub 

#Region  "Hot  keys  (copy,  cut,  paste,  delete)  events  " 

Private  Sub  DataTable_KeyDown (ByVal  sender  As  Object,  ByVal  e  As  KeyEventArgs)  Handles* 
DataTable . KeyDown 

Dim  copy  As  Boolean,  paste  As  Boolean,  cut  As  Boolean 
1  **  copy:  ctrl-C,  ctrl-X,  ctrl-ins 
If  e. Control  Then 

If  e.KeyCode  -  Keys . C  Or  _ 
e.KeyCode  =  Keys  -  Insert  Then 
copy  =  True 
End  If 

If  e.KeyCode  =  Keys.X  Then 
cut  -  True 
End  If 
End  If 

’  **  paste:  ctrl-V,  shift-ins 

If  (e. Control  =  True  And  e.KeyCode  =  Keys.V)  Or 
(e. Shift  And  e.KeyCode  »  Keys. Insert)  Then 
paste  =  True 
End  If 

1  **  copy  selection  to  clipboard 
If  copy  Then 

Clipboard . SetDataObj  ect (DataTable .Clip) 

End  If 

'  **  cut  selection  to  the  clipboard 
If  cut  Then 

Clipboard . SetDataObj  ect (DataTable . Clip) 

Dim  selected  As  Cl . Win . ClFlexGrid. CellRange 
selected  =*  DataTable  .  Select  ion 
selected . Data  -  Nothing 
End  If 

•  **  paste  from  clipboard 
If  paste  Then 

1  see  of  there's  text  in  the  clipboard 

Dim  data  As  IDataObject  =  Clipboard. GetDataObj ect ( ) 

If  data. GetDataPresent (DataFormats .Text )  Then 
'  there  is,  so  paste  it 

DataTable. Select (DataTable. Row,  DataTable . Col ,  DataTable . Rows . Count  -  1,  * 

DataTable . Cols . Count  -  1,  False) 

DataTable .Clip  =  CType (data . GetData (DataFormats . Text ) ,  String) 

DataTable .Select (DataTable . Row,  DataTable . Col ) 

End  If 
End  If 

'If  the  user  presses  the  delete  key  in  a  cell  or  in  a  range  of  cells,  delete  them 
If  e.KeyCode  =  Keys. Delete  Then 

Dim  selected  As  Cl . Win . ClFlexGrid . CellRange 
selected  =  DataTable . Selection 
selected . Data  =  Nothing 
End  If 
End  Sub 

#End  Region 

Private  Sub  mnuContextCut_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System.  * 

EventArgs)  Handles  mnuContextCut . Click 

Clipboard . SetDataObj  ect (DataTable .Clip) 
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Dim  selected  As  Cl , Hin. ClFlexGrid. CellRange 
selected  =  DataTable -Selection 
selected. Data  =  Nothing 
End  Sub 

Private  Sub  mnuCont ext Copy_Click {ByVal  sender  As  System.Object,  ByVal  e  As  System. 
EventArgs)  Handles  mnuCont ext Copy. Click 

Clipboard.SetDataObject (DataTable . Clip) 

End  Sub 

Private  Sub  mnuContentFaste_Click {ByVal  sender  As  System. Object,  ByVal  e  As  System. 
EventArgs)  Handles  mnuContent Paste .Click 

Dim  data  As  IDataObject  =  Clipboard. GetDataObj ect ( ) 

If  data.GetDataPresent (DataFormats .Text)  Then 
*  there  is,  so  paste  it 

DataTable .Select (DataTable .Row,  DataTable . Col ,  DataTable .Rows .Count  -  1,  \t 

DataTable. Cols .Count  -  1,  False) 

DataTable. Cl ip  -  CType (data .GetData (DataFormats .Text) ,  String) 

DataTable . Select (DataTable . Row,  DataTable . Col ) 

End  If 
End  Sub 

Private  Sub  mnuContextClearContents_Click (ByVal  sender  As  System. Object,  ByVal  e  As 
System. EventArgs)  Handles  mnuContextClearContents . Click 
Dim  selected  As  Cl .Win. ClFlexGrid. CellRange 
selected  =  DataTable .Selection 
selected. Data  =  Nothing 
End  Sub 


Private  Sub  Data_Table_CeIlChanged (ByVal  sender  As  Object,  ByVal  e  As  RowCol EventArgs } 
Handles  DataTable . Cell Changed 

Dim  CellRange  As  CellRange  -  Me. DataTable . Selection () 

Dim  cellStyle  As  CellStyle  =  Me. DataTable .Styles .Focus 

cel IStyle. Font  =  New  Font (Me. DataTable .Font ,  FontStyle . Regular) 

CellRange .StyleNew, Font  =  cellStyle . Font 
End  Sub 


Private  Sub  Menu! teml_Click (ByVal  sender  As  System. Ob j ect ,  ByVal  e  As  System. 
EventArgs)  Handles  Menulteml . Click 
Dim  DataTable  As  Data_Table  =  Me 
Dim  selectedColumns  As  CellRange 

selectedColumns  =  DataTable .DataTable . Selection 

Dim  selectedColumnLower  As  Integer  =  selectedColumns . cl 

Dim  selectedColumnUpper  As  Integer  =  selectedColumns .c2 

Dim  columnRange  As  ColumnCol lection 

columnRange  =  DataTable . DataTable . Cols 

columnRange .Default Size  =  70 

Dim  columnCount  As  Integer 

For  columnCount  =  selectedColumnLower  To  selectedColumnUpper 
columnRange . Insert (columnCount ) 

Next 


End  Sub 

Private  Sub  MenuItem5_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System. 
EventArgs)  Handles  MenuItemS . Click 
Dim  DataTable  As  Data_Table  =  Me 
Dim  selectedColumns  As  CellRange 

selectedColumns  -  DataTable . DataTable . Selection 
Dim  selectedColumnLower  As  Integer  =  selectedColumns . cl 
Dim  selectedColumnUpper  As  Integer  =  selectedColumns . c2 
Dim  columnRange  As  ColumnCol lection 
columnRange  -  DataTable . DataTable. Cols 
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columnRange . Def aultSize  =  70 
Dim  columnCount  As  Integer 

For  columnCount  =  selectedColumnLower  To  selectedColumnUpper 
columnRange .Remove (columnCount) 

Next 
End  Sub 


Private  Sub  DataTable_EnterCell (ByVal  sender  As  Object,  ByVal  e  As  System. Event Args) 
Handles  DataTable . EnterCell 

Dim  CellRange  As  CellRange  =  Me . DataTable . Selection ( ) 

Dim  cellStyle  As  CellStyle  =  Me . DataTable . Styles . Focus 

cellStyle . Font  =  New  Font (Me . DataTable . Font ,  FontStyle . Regular) 

CellRange .StyleNew. Font  -  cellStyle . Font 
End  Sub 
End  Class 
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Public  Class  Final_Report 

Inherits  System, Windows , Forms , Form 

#Region  "  Windows  Form  Designer  generated  code  ** 

Public  Sub  New() 

MyBase .New{) 

♦This  call  is  required  by  the  Windows  Form  Designer. 

InitializeComponent ( ) 

•Add  any  initialization  after  the  InitializeComponent (}  call 
End  Sub 

•Form  overrides  dispose  to  clean  up  the  component  list. 

Protected  Overloads  Overrides  Sub  Dispose (ByVal  disposing  As  Boolean) 

If  disposing  Then 

If  Not  {components  Is  Nothing)  Then 
components , Dispose  ( ) 

End  If 
End  If 

MyBase .Dispose {disposing) 

End  Sub 

•Required  by  the  Windows  Form  Designer 

Private  components  As  System. ComponentModel . IContainer 

•NOTE:  The  following  procedure  is  required  by  the  Windows  Form  Designer 
•It  can  be  modified  using  the  Windows  Form  Designer. 

•Do  not  modify  it  using  the  code  editor. 

Friend  WithEvents  CIPrintPreviewl  As  Cl . Win. CIPrintPreview. CIPrintPreview 
Friend  WithEvents  PreviewToolBarButtonl  As  Cl .Win. CIPrintPreview . PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButton2  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButtonl  As  Cl . Win. CIPrintPreview . PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButton4  As  Cl . Win. CIPrintPreview . PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButtonS  As  Cl. Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButtonS  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButton7  As  Cl. Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButtonS  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButtonS  As  Cl .Win. CIPrintPreview . PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButtonl 0  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButtonl!  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButtonl2  As  Cl .Win , CIPrintPreview, PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButtonl!  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButtonl!  As  Cl .Win , CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButtonl 5  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButtonl 6  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButtonl?  As  Cl .Win. CIPrintPreview . PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButtonl 8  As  Cl .Win. Cl Print Preview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButtonl 9  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButton20  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButton21  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButton22  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButton23  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButton24  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButton25  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButton26  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButton27  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButton28  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  FreviewToolBarButton29  As  Cl .Win. CIPrintPreview . PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButtonl 0  As  Cl .Win. CIPrintPreview, PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButtonl 1  As  Cl . Win . CIPrintPreview, PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButton32  As  Cl .Win. CIPrintPreview. PreviewToolBarButton 
Friend  WithEvents  PreviewToolBarButtonl 3  As  Cl .Win . CIPrintPreview . PreviewToolBarButton 
<System. Diagnostics . Debugger StepThrough{ ) >  Private  Sub  InitializeComponent { ) 

Dim  resources  As  System. Resources . ResourceManager  =  New  System, Resources . 
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ResourceManager (GetType (Final 
Me . CIPrintPreviewl  =  New 
Me . PreviewToolBarButtonl 
Me . PreviewToolBarButton2 
Me . PreviewToolBarButton3 
Me . PreviewToolBarButton4 
Me . PreviewToolBarButtonS 
Me . PreviewToolBarButton6 
Me . PreviewToolBarButton7 
Me. PreviewToolBarButton8 
Me . PreviewToolBarButton9 
Me . PreviewToolBarButtonlO 
Me . PreviewToolBarButtonll 
Me . PreviewToolBarButtonl2 
Me . PreviewToolBarButtonl3 
Me . PreviewToolBarButtonl4 
Me . PreviewToolBarButtonl5 
Me . PreviewToolBarButtonl6 
Me . PreviewToolBarButtonl7 
Me . PreviewToolBarButtonl8 
Me . PreviewToolBarButtonl9 
Me . PreviewToolBarButton20 
Me . PreviewToolBarButton2 1 
Me . PreviewToolBarButton22 
Me . PreviewToolBarButton23 
Me . PreviewToolBarButton24 
Me . PreviewToolBarButton25 
Me . PreviewToolBarButton26 
Me . PreviewToolBarButton27 
Me . PreviewToolBarButton28 
Me . PreviewToolBarButton29 
Me . PreviewToolBarButton3 0 
Me . PreviewToolBarButton31 
Me . PreviewToolBarButton32 
Me. PreviewToolBarButton33 
CType (Me . CIPrintPreviewl , 
Me . SuspendLayout ( ) 


Report) ) 

Cl . Win. CIPrintPreview. CIPrintPreview 
=  New  Cl .Win. CIPrintPreview. PreviewToolBarButton 
=  New  Cl .Win. CIPrintPreview. PreviewToolBarButton 
=  New  Cl .Win. CIPrintPreview. PreviewToolBarButton 

-  New  Cl . Win. CIPrintPreview. PreviewToolBarButton 
=  New  Cl .Win . CIPrintPreview . PreviewToolBarButton 
=  New  Cl .Win. CIPrintPreview. PreviewToolBarButton 

-  New  Cl .Win. CIPrintPreview . PreviewToolBarButton 
=  New  Cl .Win. CIPrintPreview. PreviewToolBarButton 
=  New  Cl .Win. CIPrintPreview. PreviewToolBarButton 

=  New  Cl. Win. CIPrintPreview. PreviewToolBarButton 

-  New  Cl . Win . CIPrintPreview . PreviewToolBarButton 
=  New  Cl .Win. CIPrintPreview. PreviewToolBarButton 
=  New  Cl . Win . CIPrintPreview . PreviewToolBarButton 
=  New  Cl .Win . CIPrintPreview . PreviewToolBarButton 
=  New  Cl . Win . CIPrintPreview . PreviewToolBarButton 
=  New  Cl . Win . CIPrintPreview . PreviewToolBarButton 
=  New  Cl .Win. CIPrintPreview. PreviewToolBarButton 
=  New  Cl .Win . CIPrintPreview . PreviewToolBarButton 
=  New  Cl .Win . CIPrintPreview . PreviewToolBarButton 
=  New  Cl .Win. CIPrintPreview. PreviewToolBarButton 

-  New  Cl .Win . CIPrintPreview . PreviewToolBarButton 
=  New  Cl .Win. CIPrintPreview. PreviewToolBarButton 
=  New  Cl .Win. CIPrintPreview . PreviewToolBarButton 
=  New  Cl. Win. CIPrintPreview. PreviewToolBarButton 
=  New  Cl .Win. CIPrintPreview . PreviewToolBarButton 
=  New  Cl .Win . CIPrintPreview . PreviewToolBarButton 
=  New  Cl .Win . CIPrintPreview . PreviewToolBarButton 

-  New  Cl . Win . CIPrintPreview . PreviewToolBarButton 
=  New  Cl .Win. CIPrintPreview. PreviewToolBarButton 
=  New  Cl . Win . CIPrintPreview . PreviewToolBarButton 
=  New  Cl .Win. CIPrintPreview. PreviewToolBarButton 
=  New  Cl .Win . CIPrintPreview . PreviewToolBarButton 
=  New  Cl . Win . CIPrintPreview . PreviewToolBarButton 
System. Component Model . ISupportlnitialize) . Beginlnit ( ) 


'  CIPrintPreviewl 


Me. CIPrintPreviewl. ClDPageSett ings  =  "color : False ; landscape : False ;margins : 100 , 100 , X 
10  0 , 100 ; papers ize :850,1100, TABlAHQAdA"  & 

"B1AHIA" 

Me . CIPrintPreviewl .Dock  =  System. Windows . Forms .DockStyle . Fill 
Me . CIPrintPreviewl . Location  =  New  System. Drawing . Point (0 ,  0) 

Me . CIPrintPreviewl .Name  =  "CIPrintPreviewl" 

Me . CIPrintPreviewl .Navigat ionBar . Cursor  =  System. Windows . Forms . Cursors .Default 
Me. CIPrintPreviewl. NavigationBar. Font  =  New  System. Drawing . Font ( "Microsoft  Sans 
Serif " ,  8.251  ,  System. Drawing. FontStyle . Regular,  System . Drawing . GraphicsUnit . Point , 
CType (0,  Byte)) 

Me . CIPrintPreviewl .NavigationBar .Out lineView. Cursor  =  System. Windows . Forms . Cursors/ 
.Default 

Me . CIPrintPreviewl .NavigationBar .OutlineView. Font  =  New  System. Drawing . Font ( 
"Microsoft  Sans  Serif",  8.25!,  System . Drawing . FontStyle . Regular ,  System. Drawing. 
GraphicsUnit . Point ,  CType(0,  Byte)) 

Me. CIPrintPreviewl .NavigationBar .OutlineView. Indent  =  19 
Me. CIPrintPreviewl .NavigationBar .OutlineView. ItemHeight  =  16 
Me. CIPrintPreviewl. NavigationBar. OutlineView. Tablndex  =  0 
Me . CIPrintPreviewl .NavigationBar .OutlineView. Visible  =  False 
Me. CIPrintPreviewl .NavigationBar . Padding  =  New  System . Drawing . Point (6 ,  3) 

Me . CIPrintPreviewl .NavigationBar . Tablndex  =  2 

Me. CIPrintPreviewl .NavigationBar . Thumbnail s View .AutoAr range  =  True 
Me . CIPrintPreviewl .NavigationBar . ThumbnailsView . Cursor  =  System . Windows . Forms . 
Cursors .Default 

Me. CIPrintPreviewl .NavigationBar .ThumbnailsView, Font  -  New  System . Drawing . Font { 
"Microsoft  Sans  Serif",  8.251,  System. Drawing . FontStyle . Regular ,  System . Drawing . 
GraphicsUnit . Point ,  CType (0,  Byte)) 
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Me.CIPrintPreviewl.NavigationBar .ThumbnailsView. Tablndex  -  0 
Me. CIPrintPreviewl.NavigationBar. ThumbnailsView. Visible  =  True 
Me. CIPrint Previewl .NavigationBar. Width  =  160 
Me . CIPrintPreviewl . PreviewPane . ZoomPactor  =  0.751 
Me. CIPrint Previewl. PreviewPane. EoomMode  =  Cl .Win. Cl Print Preview. EoomModeEnum .  t 

Custom 

Me. CIPrintPreviewl. Size  =  New  System. Drawing. Size (752,  733} 

Me . CIPrintPreviewl . Splitter . Cursor  =  System. Windows . Forms . Cursors  - VSpl it 
Me. CIPrintPreviewl. Splitter. Width  =  3 

Me , CIPrintPreviewl . StatusBar. Cursor  -  System. Windows . Forms . Cursors .Default 
Me. CIPrintPreviewl . StatusBar. Font  =  New  System.Drawing. Font { "Microsoft  Sans  Serif 
,  8.251,  System. Dr awing. FontStyle .Regular,  System. Drawing. GraphiesUnit .Point,  CType{0,tf 
Byte) ) 

Me. CIPrintPreviewl. StatusBar .Tablndex  =  4 
Me .CIPrintPreviewl .Tablndex  =  0 

Me . CIPrintPreviewl . ToolBar . Buttons . AddRange (New  System. Windows . Forms . Tool BarBut ton it 
{)  {Me. PreviewToolBarButtonl,  Me . PreviewToolBarButton2 ,  Me . PreviewToolBarButton3 ,  Me.  t 


PreviewToolBarButton4 ,  Me . PreviewToolBarButtonS ,  Me. PreviewToolBarButtonS,  Me.  t 
PreviewToolBarButton?,  Me . PreviewToolBarButtonS ,  Me . PreviewToolBarButtonS,  Me.  it 
PreviewToolBarButtonlO,  Me . PreviewToolBarButtonl 1,  Me . PreviewToolBarButtonl 2 ,  Me.  t 
PreviewToolBarButtonl3,  Me . PreviewToolBarButtonl4,  Me. PreviewToolBarButtonlS,  Me.  t 
PreviewToolBarButtonl6,  Me. PreviewToolBarButtonl?,  Me . PreviewToolBarButtonlS ,  Me.  t 
PreviewToolBarButtonlS,  Me. PreviewToolBarButton20 ,  Me. PreviewToolBarButton21,  Me.  it 
PreviewToolBarButton22,  Me. PreviewToolBarButton23 ,  Me . PreviewToolBarButton24 ,  Me.  it 
PreviewToolBarButton25,  Me. PreviewToolBarButton26,  Me. PreviewToolBarButton27,  Me.  it 
PreviewToolBarButton28,  Me. PreviewToolBarButton29,  Me . PreviewToolBarButton30 ,  Me.  it 
PreviewToolBarButton31,  Me . PreviewToolBarButton32 ,  Me. PreviewToolBarButtonS 3 } ) 

Me . CIPrintPreviewl .ToolBar . Cursor  =  System . Windows . Forms . Cursors .Default 


Me. CIPrintPreviewl. ToolBar. Font  =  New  Sys tem. Drawing. Font ( "Microsoft  Sans  Serif",  it 
8.25!,  System. Drawing. FontStyle . Regular ,  Sys tem. Drawing. GraphiesUnit . Point,  CTypefG,  t 
Byte) ) 

*  PreviewToolBarButtonl 

t 

Me. PreviewToolBarButtonl .Action  -  Cl .Win. CIPrintPreview. ToolBarButtonActionEnum.  it 
FileOpen 

Me . PreviewToolBarButtonl . Imagelndex  =  0 

Me . PreviewToolBarButtonl .ToolTipText  =  "File  Open" 

t 

*  PreviewToolBarButton2 

Me . PreviewToolBarButton2 .Action  =  Cl . Win. CIPrintPreview .ToolBarButtonActionEnum .  it 
FileSave 

Me . PreviewToolBarButton2 . Imagelndex  =  1 

Me. PreviewToolBarButton2 .ToolTipText  =  "File  Save" 

» 

1 PreviewToolBarButton3 

i 

Me . PreviewToolBarButton3 .Action  =  Cl .Win. Cl Print Preview. ToolBarButtonActionEnum.  it 
FilePrint 

Me . PreviewToolBarButtonl . Imagelndex  =  2 

Me . PreviewToolBarButton3 .ToolTipText  =  "Print" 

r 

* PreviewToolBarButton4 
» 

Me . PreviewToolBarButton4 .Action  =  Cl .Win. CIPrintPreview. ToolBarButtonActionEnum.  it 
PageSetup 

Me. P revie wTool Bar Butt on4 . Imagelndex  =  3 

Me . PreviewToolBarButton4 .ToolTipText  -  "Page  Setup" 

I 

1 PreviewToolBarButtonS 

i 

Me . PreviewToolBarButtonS .Action  =  Cl .Win. Cl Print Preview. ToolBarButtonActionEnum.  t 
Reflow 

Me . PreviewToolBarButtonS . Imagelndex  -  4 

Me. PreviewToolBarButtonS . ToolTipText  =  "Reflow" 
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’ PreviewToolBarButton6 

i 

Me. PreviewToolBarButton6 .Action  =  Cl .Win. CIPrint Preview. ToolBarButtonActionEnum. 

Stop 

Me . PreviewToolBarButton6 . Imagelndex  =  5 

Me . PreviewToolBarButton6 . ToolTipText  =  "Stop" 

Me . PreviewToolBarButtonG . Visible  =  False 

i 

1 PreviewToolBarButton7 

i 

Me. PreviewToolBarButton7. Action  =  Cl . Win. CIPrint Preview. ToolBarButtonActionEnum. 

None 

Me . PreviewToolBarBut ton7 . Style  =  System . Windows . Forms . ToolBarButtonStyle . Separator 

• 

1 PreviewToolBarButton8 

i 

Me. PreviewToolBarButton8 .Action  =  Cl .Win. CIPrintPreview . ToolBarButtonActionEnum. 
ShowNavigat ionBar 

Me. PreviewToolBarButton8 . Imagelndex  =  6 
Me . PreviewToolBarButton8 . Pushed  =  True 

Me. PreviewToolBarButton8 .Style  =  System. Windows . Forms .ToolBarButtonStyle .  * 

ToggleButton 

Me . PreviewToolBarButton8 .ToolTipText  =  "Show  Navigation  Bar" 

i 

1 PreviewToolBarButton9 

I 

Me. PreviewToolBarBut ton9 .Action  «  Cl .Win. CIPrint Preview. ToolBarButtonActionEnum.  M 

None 

Me . PreviewToolBarBut ton9 . Style  =  System . Windows . Forms . ToolBarButtonStyle . Separator 
' PreviewToolBarButtonlO 

Me . PreviewToolBarButtonlO .Action  =  Cl . Win . CIPrintPreview . ToolBarButtonActionEnum . 
MouseHand 

Me . PreviewToolBarButtonlO . Imagelndex  =  7 
Me . PreviewToolBarButtonlO . Pushed  =  True 

Me. PreviewToolBarButtonlO .Style  =  System. Windows . Forms . ToolBarButtonStyle .  x 

ToggleButton 

Me. PreviewToolBarButtonlO .ToolTipText  =  "Hand  Tool" 

* 

1 PreviewToolBarButtonll 

i 

Me. PreviewToolBarButtonll .Action  =  Cl . Win . CIPrintPreview . ToolBarButtonActionEnum . 
MouseZoom 

Me. PreviewToolBarButtonll . Imagelndex  «  8 

Me . PreviewToolBarButtonll . Style  =  System. Windows . Forms . ToolBarButtonStyle . 
DropDownButton 

Me. PreviewToolBarButtonll .ToolTipText  =  "Zoom  In  Tool" 

i 

' PreviewToolBarButtonl2 
< 

Me . PreviewToolBarButtonl2 . Action  =  Cl . Win . CIPrint Preview . ToolBarButtonAct ionEnum . 
MouseZoomOut 

Me . PreviewToolBarButtonl2 . Imagelndex  =  25 

Me. PreviewToolBarButtonl2 .Style  =  System. Windows . Forms . ToolBarButtonStyle .  x 

DropDownButton 

Me . PreviewToolBarButtonl2 . ToolTipText  =  "Zoom  Out  Tool" 

Me. PreviewToolBarButtonl2 .Visible  =  False 

1 

' PreviewToolBarButtonll 

i 

Me . PreviewToolBarButtonll .Action  =  Cl .Win. CIPrintPreview. ToolBarButtonActionEnum. 
MouseSelect 

Me . PreviewToolBarButtonll . Imagelndex  =  9 

Me . PreviewToolBarButtonll . Style  =  System. Windows . Forms . ToolBarButtonStyle .  X 

ToggleButton 

Me . PreviewToolBarButtonll . ToolTipText  =  "Select  Text" 
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1 PreviewToolBarButtonl4 

t 

Me. PreviewToolBarButtonl4 .Action  =  Cl -Win. ClPrintPreview. ToolBarButtonActionEnum.  it 
FindText 

Me. PreviewToolBarButtonl4 . Imagelndex  =  10 

Me. PreviewToolBarButtonl4 .ToolTipText  =  8 Find  Text8 

*  PreviewToolBarButtonlB 

* 

Me. PreviewToolBarButtonlB .Action  ■=  Cl .Win. Cl Print Preview .ToolBarButtonActionEnum.  it 

None 

Me . PreviewToolBarButtonlB . Style  =  System. Windows . Forms .ToolBarButtonStyle . 

Separator 

* 

*  PreviewToolBarButtonlB 
« 

Me. PreviewToolBarButtonlB -Action  =  Cl .Win. Cl Print Preview -ToolBarButtonActionEnum.  it 
GoFirst 

Me . PreviewToolBarButtonlB , Enabled  =  False 
Me , PreviewToolBarButtonlB . Imagelndex  =  11 
Me . PreviewToolBarButtonlB -ToolTipText  =  “First  Page" 

1 PreviewToolBarButtonl7 

i 

Me.PreviewToolBarButtonl7.Action  =  Cl -Win  - CIPrint Preview. ToolBarButtonActionEnum. 
GoPrev 

Me . PreviewToolBarButtonl7 -Enabled  =  False 
Me . PreviewToolBarButtonl7 . Imagelndex  =  12 
Me. PreviewToolBarButtonl? -ToolTipText  =  "Previous  Page" 

t 

‘PreviewToolBarButtonlB 

i 

Me. PreviewToolBarButtonlB -Action  =  Cl .Win. ClPrintPreview. ToolBarButtonActionEnum.  it 
GoNext 

Me -PreviewToolBarButtonl 8 . Imagelndex  =  13 

Me - PreviewToolBarButtonlB .ToolTipText  =  "Next  Page" 

* 

1 PreviewToolBarButtonl 9 

i 

Me -PreviewToolBarButtonl 9 -Action  -  Cl .Win. ClPrintPreview. ToolBarButtonActionEnum.  1 1 
GoLast 

Me. PreviewToolBarButtonl 9 . Imagelndex  =  14 

Me . PreviewToolBarButtonlB . ToolTipText  =  "Last  Page” 

t 

*  PreviewToolBarButton20 

Me -PreviewToolBarButton20 .Action  =  Cl .Win. CIPrint Preview. ToolBarButtonActionEnum.  it 

None 

Me. PreviewToolBarButton20. Style  =  System. Windows , Forms .ToolBarButtonStyle .  1 1 

Separator 

*  PreviewToolBarButton21 

t 

Me . PreviewToolBarButton21 .Action  «  Cl .Win. ClPrintPreview. ToolBarButtonActionEnum.  it 
HistoryPrev 

Me. PreviewToolBarButton21 . Enabled  =  False 
Me . PreviewToolBarButton21 . Imagelndex  =  15 
Me. PreviewToolBarButton21 .ToolTipText  =  "Previous  View" 

Me . PreviewToolBarButton21 . Visible  =  False 

i 

*  PreviewToolBarButton22 

Me. PreviewToolBarButton22 .Action  =  Cl .Win. ClPrintPreview. ToolBarButtonActionEnum.  it 
HistoryNext 

Me . PreviewToolBarButton22 .Enabled  =  False 
Me , PreviewToolBarButton22 . Imagelndex  =  16 
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Me . PreviewToolBarButton22 . ToolTipText  =  "Next  View" 

Me. PreviewToolBarButton22 .Visible  =  False 

' PreviewToolBarButton23 

Me . PreviewToolBarButton23 .Action  =  Cl . Win. CIPrintPreview. ToolBarButtonActionEnum. 

None 

Me. PreviewToolBarButton23 .Style  =  System. Windows . Forms . ToolBarButtonStyle . 

Separator 

Me . PreviewToolBarButton23 .Visible  =  False 

i 

1 PreviewToolBarButton24 
? 

Me. PreviewToolBarButton24 .Action  =  Cl .Win. CIPrintPreview. ToolBarButtonActionEnum. 
ZoomOut 

Me . PreviewToolBarButton24 . Imagelndex  =  17 

Me . PreviewToolBarButton24 . ToolTipText  =  "Zoom  Out" 

Me. PreviewToolBarButton24 .Visible  =  False 

i 

1 PreviewToolBarButton25 

i 

Me. PreviewToolBarButton25 .Action  =  Cl . Win . CIPrintPreview . ToolBarButtonActionEnum .  kf 
Zoomln 

Me . PreviewToolBarButton25 . Imagelndex  =  18 

Me . PreviewToolBarButton25 . ToolTipText  -  "Zoom  In" 

Me . PreviewToolBarButton25 . Visible  -  False 
< 

' PreviewToolBarButton26 

i 

Me . PreviewToolBarButton26 .Action  =  Cl .Win. CIPrintPreview. ToolBarButtonActionEnum.  X 

None 

Me. PreviewToolBarButton26 .Style  =  System. Windows . Forms . ToolBarButtonStyle .  * 

Separator 

Me. PreviewToolBarButton26 .Visible  =  False 

f 

' PreviewToolBarButton27 

i 

Me. PreviewToolBarButton27 .Action  =  Cl . Win . CIPrintPreview . ToolBarButtonActionEnum . 
ViewActualSize 

Me . PreviewToolBarButton27 . Imagelndex  =  19 

Me. PreviewToolBarButton27 . Style  =  System. Windows . Forms .ToolBarButtonStyle .  * 

ToggleButton 

Me. PreviewToolBarButton27 . ToolTipText  =  "Actual  Size" 

i 

*  PreviewToolBarButton2  8 

i 

Me. PreviewToolBarButton28 .Action  =  Cl .Win. CIPrintPreview. ToolBarButtonActionEnum.  X 
ViewFullPage 

Me. PreviewToolBarButton28 . Imagelndex  =  20 

Me. PreviewToolBarButton28 .Style  =  System. Windows . Forms . ToolBarButtonStyle .  * 

ToggleButton 

Me. PreviewToolBarButton28 .ToolTipText  =  "Full  Page" 

i 

1 PreviewToolBarButton2 9 

Me. PreviewToolBarButton29 .Action  =  Cl . Win . CIPrintPreview . ToolBarButtonActionEnum .  X 
ViewPageWidth 

Me . PreviewToolBarButton29 . Imagelndex  =  21 

Me. PreviewToolBarButton29. Style  =  System . Windows . Forms . ToolBarButtonStyle .  ^ 

ToggleButton 

Me . PreviewToolBarButton2 9 .ToolTipText  =  "Page  Width" 

i 

* PreviewToolBarButton30 

1 

Me. PreviewToolBarButton30 .Action  =  Cl . Win . CIPrintPreview . ToolBarButtonAct ionEnum.  * 
ViewTwoPages 

Me . PreviewToolBarButton30 . Imagelndex  =  22 
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Me, PreviewToolBarButton3G. Style  =  System. Windows . Forms .TooIBarButtonStyle. 
ToggleButton 

Me . PreviewToolBarButton30 .ToolTipText  =  "Two  Pages** 

* 

1 FreviewToolBarButton31 

i 

Me . PreviewToolBarButton31 .Action  =  Cl . Win. CIPrint Preview. ToolBarButtonActionEnum. 
YiewFourPages 

Me . PreviewToolBarButton31 . Imagelndex  =  23 

Me. PreviewToolBarButton31 , Style  =  System, Windows . Forms .TooIBarButtonStyle. 
DropDownButton 

Me .PreviewToolBarButton31 .ToolTipText  =  "Four  Pages" 

*  PreviewToolBarButton32 

Me. PreviewToolBarButton32 .Action  »  Cl .Win. CIPrint Preview, ToolBarButtonActionEnum. 

None 

Me. PreviewToolBarButton32 .Style  -  System. Windows . Forms .TooIBarButtonStyle, 
Separator 

Me. PreviewToolBarButton32 .Visible  =  False 

i 

*  PreviewToolBarButton33 

* 

Me . PreviewToolBarButton33 .Action  -  Cl .Win. CIPrintPreview.ToolBarButtonActionEnum. 

Help 

Me. PreviewToolBarButton33 , Imagelndex  -  24 

Me . PreviewToolBarButton3 3 .ToolTipText  =  "Help" 

Me . PreviewToolBarButton33 .Visible  =  False 

t 

*  Final_Report 

Me. AutoScaleBaseSize  -  New  System. Drawing. Size (5,  13) 

Me. ClientSize  =  New  System. Drawing. Size (752,  733) 

Me . Controls , Add (Me . CIPrintPreviewl) 

Me. Icon  =  CType (resources .GetObject ("$ this . Icon" ) #  System. Drawing. Icon) 

Me. Name  =  "Final_Report " 

Me. Text  =  "Print  Preview" 

CType (Me . CIPrintPreviewl ,  System . Component Model . ISupport Initialize) . Endlnit ( ) 

Me , ResumeLayout (False) 

End  Sub 

#End  Region 

Private  Sub  CIPrint Previewl_Load (ByVal  sender  As  System.Object #  ByVal  e  As  System, 
EventArgs)  Handles  CIPrintPreviewl . Load 

End  Sub 
End  Class 
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Public  Class  Make_Table 

Inherits  System . Windows . Forms . Form 

#Region  "  Windows  Form  Designer  generated  code  " 

Public  Sub  New ( ) 

MyBase . New ( ) 

'This  call  is  required  by  the  Windows  Form  Designer. 

InitializeComponent ( ) 

'Add  any  initialization  after  the  InitializeComponent ( )  call 
End  Sub 

'Form  overrides  dispose  to  clean  up  the  component  list. 

Protected  Overloads  Overrides  Sub  Dispose (ByVal  disposing  As  Boolean) 

If  disposing  Then 

If  Not  (components  Is  Nothing)  Then 
components .Dispose ( ) 

End  If 
End  If 

MyBase . Dispose (disposing) 

End  Sub 

'Required  by  the  Windows  Form  Designer 

Private  components  As  System . ComponentModel . IContainer 

'NOTE:  The  following  procedure  is  required  by  the  Windows  Form  Designer 
'It  can  be  modified  using  the  Windows  Form  Designer. 

'Do  not  modify  it  using  the  code  editor. 

Friend  WithEvents  tabSetupSpreadsheet  As  System. Windows . Forms . TabPage 

Friend  WithEvents  Label2  As  System. Windows . Forms . Label 

Friend  WithEvents  Labell  As  System. Windows . Forms . Label 

Friend  WithEvents  btnVariableNameNo  As  System. Windows . Forms . Button 

Friend  WithEvents  btnVariableNameYes  As  System . Windows . Forms . Button 

Friend  WithEvents  tabcntrSetupData  As  System. Windows . Forms . TabControl 

Friend  WithEvents  Panell  As  System .Windows . Forms . Panel 

Friend  WithEvents  Label3  As  System .Windows . Forms . Label 

Friend  WithEvents  txtReplicateNumber  As  System. Windows . Forms . TextBox 

<System. Diagnostics . DebuggerStepThrough () >  Private  Sub  Init ializeComponent ( ) 

Dim  resources  As  System. Resources . ResourceManager  =  New  System. Resources .  * 

ResourceManager (GetType (Make_Table) ) 

Me . tabSetupSpreadsheet  =  New  System. Windows . Forms .TabPage 

Me. Panell  =  New  System . Windows . Forms . Panel 

Me.Label3  =  New  System. Windows . Forms . Label 

Me . txtReplicateNumber  =  New  System. Windows . Forms .TextBox 

Me.Label2  =  New  System. Windows . Forms . Label 

Me. Labell  =  New  System. Windows . Forms . Label 

Me . btnVariableNameNo  =  New  System. Windows . Forms . Button 

Me . btnVariableNameYes  =  New  System. Windows . Forms . Button 

Me . tabcntrSetupData  -  New  System. Windows . Forms . TabControl 

Me . tabSetupSpreadsheet . SuspendLayout ( ) 

Me . Panell . SuspendLayout ( ) 

Me . tabcntrSetupData . SuspendLayout ( ) 

Me . SuspendLayout ( ) 

i 

' tabSetupSpreadsheet 

i 

Me . tabSetupSpreadsheet . Controls .Add (Me . Panell) 

Me . tabSetupSpreadsheet . Controls . Add (Me . Label2 ) 

Me . tabSetupSpreadsheet . Controls .Add (Me . Labell) 

Me. tabSetupSpreadsheet . Controls .Add (Me . btnVariableNameNo) 

Me . tabSetupSpreadsheet . Controls . Add (Me . btnVariableNameYes ) 

Me. tabSetupSpreadsheet . Location  =  New  System . Drawing . Point ( 4 ,  22) 

Me. tabSetupSpreadsheet .Name  -  "tabSetupSpreadsheet" 

Me. tabSetupSpreadsheet . Size  =  New  System . Drawing . Size ( 344 ,  267) 
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Me . tabSetupSpreadsheet .Tablndex  =  0 

Me . tabSetupSpreadsheet .Text  =  "Setup  Data  Table” 

i 

*  Panel 1 
» 

Me . Panell . Controls .Add {Me . Label3) 

Me . Panell .Controls .Add {Me. txtReplicateNumber) 

Me. Panell .Location  =  New  System. Drawing. Point {24 ,  8} 

Me. Pane 11. Name  -  * Panell" 

Me. Panell. Size  =  New  System. Drawing. Size (296 ,  56} 

Me. Pane 11. Tab Index  =  0 

• 

* babe 13 

i 

Me. Labe 13 . Location  =  New  System. Drawing. Point {22,  21) 

Me. Labe 13. Name  =  "Label 3" 

Me. Labels .Size  =  New  System. Drawing. Size {176,  23) 

Me. Labels. Tablndex  =  1 

Me. Labels .Text  -  "Analytical  Replicates  (Default  -  3)" 

i 

*  txtReplicateNumber 

t 

Me. txtReplicateNumber .Location  »  New  System. Drawing. Point {206 ,  19) 

Me . txtReplicateNumber .Name  =  "txtReplicateNumber" 

Me. txtReplicateNumber .Size  =  New  System. Drawing. Size {32,  20) 

Me. txtReplicateNumber .Tablndex  =  0 
Me. txtReplicateNumber. Text  =  "3" 

Me . txtReplicateNumber .Text Align  =  System. Windows . Forms .Horizontal Alignment . Center 
< 

*Label2 

Me. Label 2 .Font  =  New  System. Drawing . Font ( "Microsoft  Sans  Serif",  9.75!,  System.  vt 
Drawing. Font Style . Italic,  System. Drawing. GraphicsUnit . Point ,  CType(0,  Byte)) 

Me .Label 2 .Location  =  New  System. Drawing. Point {48,  122) 

Me. Label 2 .Name  =  "Labe 12  " 

Me. Label2 .Size  =  New  System. Drawing . Size (248 ,  88) 

Me. Label2. Tablndex  =  3 

Me. Label 2 .Text  -  "In  other  words,  would  you  like  each  compound  to  be  identified  intf 
the  data  table  ("  &  _ 

"will  not  change  results  of  the  analysis,  but  may  be  more  discriptive  if  the  data"tf 

Sc  _ 

*  table  is  printed) . " 

Me . Label2 . Text Al ign  =  System . Drawing . ContentAl i gnment .MiddleCenter 

*  Labe 11 
% 

Me. Label 1 .Font  =  New  System. Drawing. Font { "Times  New  Roman",  14.251,  System. Drawing^ 
.FontStyle. Regular,  System. Drawing. GraphicsUnit .Point,  CType{0,  Byte)) 

Me. Labell .Location  =  New  System. Drawing . Point (48 ,  72) 

Me .Label 1 .Name  =  "Labell" 

Me. Labell. Size  =  New  System. Drawing. Size {248 ,  48) 

Me . Labell .Tablndex  =  2 

Me . Labell .Text  =  "Would  you  like  to  name  each  of  your  variables?" 

Me . Labell .Text Align  -  System. Drawing. Content Alignment .MiddleCenter 

1 btnVariableNameNo 

* 

Me . btnVariableNameNo . DialogResult  =  System . Windows . Forms . DialogResult . Cancel 
Me. btnVariableNameNo. Location  =  New  System. Drawing. Point {200,  224) 

Me. btnVariableNameNo. Name  =  "btnVariableNameNo" 

Me. btnVariableNameNo. Tablndex  -  1 
Me .btnVariableNameNo. Text  =  "&No" 

i 

*  btnVariableNameYes 

t 

Me .btnVariableNameYes .DialogResult  =  System. Windows . Forms . DialogResult .OK 
Me. btnVariableNameYes. Location  =  New  System. Drawing. Point (56 ,  224) 
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Me .btnVariableNameYes .Name  =  "btnVariableNameYes" 

Me . btnVariableNameYes .Tablndex  =  0 
Me .btnVariableNameYes .Text  =  "&Yes" 

i 

• tabcntrSetupData 

i 

Me . tabcntrSetupData . Controls . Add (Me . tabSetupSpreadsheet ) 

Me. tabcntrSetupData. Dock  «  System. Windows . Forms .DockStyle . Fill 
Me . tabcntrSetupData . I temSize  =  New  System. Drawing . Size (96 ,  18) 

Me. tabcntrSetupData. Location  =  New  System . Drawing. Point (0 ,  0) 

Me . tabcntrSetupData .Name  =  "tabcntrSetupData" 

Me . tabcntrSetupData . Selectedlndex  =  0 
Me. tabcntrSetupData. ShowToolTips  =  True 

Me . tabcntrSetupData . Size  =  New  System.Drawing. Size  (352,  293) 

Me. tabcntrSetupData .SizeMode  =  System. Windows . Forms .Tabs izeMode . Fixed 
Me . tabcntrSetupData .Tablndex  =  0 

i 

*Make_Table 

i 

Me . AcceptButton  =  Me . btnVariableNameYes 

Me. AutoScaleBaseSize  =  New  System. Drawing. Size  (5 ,  13) 

Me . CancelButton  =  Me . btnVariableNameNo 
Me.ClientSize  =  New  System. Drawing . Size (352 ,  293) 

Me . Controls .Add (Me . tabcntrSetupData) 

Me . FormBorderStyle  -  System. Windows . Forms . FormBorderStyle . FixedDialog 
Me. Icon  =  CType (resources . GetObj ect ( " $this . Icon" ) ,  System . Drawing. Icon) 

Me .MaximizeBox  =  False 
Me .MinimizeBox  =  False 
Me. Name  =  "Make_Table" 

Me . StartPosition  =  System . Windows . Forms . FormStart Position . CenterScreen 
Me. Text  =  "Make  Data  Table" 

Me . tabSetupSpreadsheet . ResumeLayout (False) 

Me . Panell . ResumeLayout (False) 

Me . tabcntrSetupData .ResumeLayout (False) 

Me . ResumeLayout (False) 

End  Sub 

#End  Region 


Private  Sub  btnVariableNameNo_Click (ByVal  sender  As  System. Ob j ect ,  ByVal  e  As  System, 
Event Args)  Handles  btnVariableNameNo . Cl ick 

End  Sub 
End  Class 
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Imports  System, Text .RegularExpress ions 
Imports  Cl .Win. ClFlexGrid 


Public  Class  manova 


Private  myManova  As  manovaexpandt jb , expandtable 
Private  myManova_p  As  manova_probability ,manova_p 
Private  myManova_stats  As  manova_s tat s ,manova_s tats 

Private  myManova_stats_expanded  As  manova_expand_stats ,manova_expand_statistics 
Private  myManova_s tat sFunct ions  As  manova_expand_s tats ,raanova_expand_s tat is ties 


Private 

Private 

Private 

Private 

Private 

Private 

Private 

Private 

Private 

Private 

Private 

Private 

Private 

Private 

Private 

Private 


Within  As  Object 
Between  As  Object 
Total  As  Object 
df Within  As  Object 
df Be tween  As  Object 
dfTotal  As  Object 
Lambda  As  Object 
Chisq  As  Object 
Chisqdf  As  Object 
Eigenval  As  Object 
Eigenvec  As  Object 
Canon  As  Object 
Mdist  As  Object 
Gnames  As  Object 
testsString  As  String 
richText  As  String 


Public  Readonly  Property  outWithinO  As  Object 
Get 

Return  Within 
End  Get 
End  Property 


Public  Readonly  Property  outBetweenO  As  Object 
Get 

Return  Between 
End  Get 
End  Property 

Public  Readonly  Property  outTotal()  As  Object 
Get 

Return  Total 
End  Get 
End  Property 

Public  Readonly  Property  outLambda ()  As  Object 
Get 

Return  Lambda 
End  Get 
End  Property 


Public  Readonly  Property  out Chisq {)  As  Object 
Get 

Return  Chisq 
End  Get 
End  Property 

Public  Readonly  Property  outChisqdf{)  As  Object 
Get 

Return  Chisqdf 
End  Get 
End  Property 

Public  Readonly  Property  outEigenval ( )  As  Object 
Get 
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Return  Eigenval 
End  Get 
End  Property 

Public  Readonly  Property  outEigenvec ( }  As  Object 
Get 

Return  Eigenvec 
End  Get 
End  Property 

Public  Readonly  Property  outCanon()  As  Object 
Get 

Return  Canon 
End  Get 
End  Property 

Public  Readonly  Property  outMdist()  As  Object 
Get 

Return  Mdist 
End  Get 
End  Property 

Public  Readonly  Property  outGnames ( )  As  Object 
Get 

Return  Gnames 
End  Get 
End  Property 

Public  Readonly  Property  tests_String ( )  As  String 
Get 

Return  testsString 
End  Get 
End  Property 

Public  Readonly  Property  rich_Text()  As  String 
Get 

Return  richText 
End  Get 
End  Property 


Friend  Sub  New(ByRef  DataTable  As  Data_Table) 


myManova_p  =  New  manova_probability . manova_p 

1  Find  out  how  many  rows  there  are 
Dim  i  As  Integer 

i  =  DataTable . DataTable . Rows . Count  *  1 

'Define  a  grid  with  all  of  the  data  in  column  1  and  2 

Dim  SelectSamples  As  New  Select_Samples 

Dim  SampleNameList  As  New  Cl . Win . ClFlexGrid . CellRange 

SampleNameList  =  DataTable .DataTable . GetCellRange ( 1 ,  1,  i,  1) 

Dim  newlinestring  As  String  -  Nothing 
Dim  Counter  As  Integer 

Dim  sampleNameClip  As  String  =  SampleNameList . Cl ip 

’Make  the  clip  devoid  of  whitespace  cells 
For  Counter  =  1  To  i 

If  CType (DataTable . DataTable (Counter,  2),  String)  =  "1"  Then 

newlineString  =  newlineString  &  CType {DataTable . DataTable (Counter ,  1) ,  ^ 

String)  &  Environment .NewLine 
End  If 

Next 

•Open  up  the  Sample  Selection  Dialog 
SelectSamples . samples  =  newlineString 
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SeleetSamples .Text  =  "Choose  Samples  for  MANOVA" 

Try 

SeleetSamples . ShowBialog ( } 

Catch  ex  As  Exception 

Mes sageBox. Show (ex, Mess age ,  11  Error  creating  dialog”,  MessageBoxButtons .OK, 
MessageBoxIeon. Exclamation) 

End  Try 

If  SeleetSamples .DialogResult  -  DialogResult .Cancel  Then 
Return 
End  If 

•Determine  which  samples  where  selected  and  save  the  names  in  a  String  Clip 
Dim  SelectedSamples  As  String 

SelectedSampIes  -  SeleetSamples. SampleChoice (} 

Dim  q  As  Integer  =  0 

•Find  where  the  alpha  next  to  \n  characters  are 
Dim  re  As  New  Regex {" [a-zA-20-9] \xOD” } 

Dim  me  As  Matched lection  =  re .Matches (SelectedSamples) 

•Find  out  how  many  alpha  or  numbers  next  to  \n  characters  there  are 
q  =  me. Count 

•Make  an  array  of  sample  names  displayed  to  user 
Dim  SelectedSampleArray (q,  1)  As  String 
Dim  SampleCounter  As  Integer 
For  SampleCounter  -  0  To  q 

SelectedSampleArray (SampleCounter ,  0)  =  CType (SeleetSamples .SeleetSamples 
(SampleCounter  +1,  1),  String) 

SelectedSampleArray (SampleCounter ,  1)  =  CType (SeleetSamples . SeleetSamples 
(SampleCounter  +  1,  2),  String) 

Next 

•Make  an  array  of  selected  samples  to  be  processed 
Dim  SelectedSamplesUser (q)  As  String 
Dim  arraynumber  As  Integer  -  0 
For  SampleCounter  =  0  To  q 

If  SelectedSampleArray (SampleCounter,  0)  =  "True"  Then 

SelectedSamplesUser (arraynumber)  =  SelectedSampleArray (SampleCounter,  1) 
arraynumber  =  arraynumber  +  1 
End  If 

Next 

•Check  to  make  sure  at  least  2  samples  were  chosen 
If  arraynumber  <  2  Then 

MessageBox. Show ("You  must  select  at  least  two  samples",  "Sample  Selection", 
MessageBoxButtons . OK,  MessageBoxIeon . Exclamation) 

Return 
End  If 

•Redimension  the  selected  sample  array 
ReDim  Preserve  SelectedSamplesUser (arraynumber  -  1) 

' Find  out  how  many  columns  have  data  in  them 
Dim  NumberofVariables  As  CellRange 

Numberof Variables  =  DataTable . DataTable .GetCellRange (1,  3,  CType (Da taTable . 
DataTable . Rows . Count,  Integer)  -  1,  CType (DataTable. DataTable .Cols .Count,  Integer)  - 
1) 

Dim  ColumnData,  AdjacentColumnData  As  CellRange 
Dim  1  As  Integer  -  0 
Dim  k,  m  As  Integer 


•Count  the  number  of  filled  in  columns  (i.e.  how  many  variables) . 
Dim  rel  As  New  Regex (" (0-9] " ) 
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For  k  =  3  To  CType (DataTable . DataTable . Cols . Count ,  Integer)  -  2 

ColumnData  =  DataTable . DataTable . GetCellRange ( 1 ,  k,  CType (DataTable . DataTable . 
Rows. Count,  Integer)  -  1,  k) 

'provide  a  counter  to  make  sure  all  columns  are  contiguous 

AdjacentColumnData  =  DataTable .DataTable .GetCellRange (1 ,  k  +  1,  CType  * 

(DataTable . DataTable . Rows . Count ,  Integer)  -  1,  k  +  1) 

If  Not  rel. Matches (ColumnData. Clip) .Count  =  0  Then 
1  =  1  +  1 
End  If 

'count  if  columns  are  not  adjacent  (i.e.  any  empty  columns  in  between) 

If  Not  rel .Matches (ColumnData . Clip) . Count  =  0  And  Not  rel. Matches  * 

(AdjacentColumnData . Clip) .Count  =  0  Then 
m  =  m  +  1 
End  If 

Next 

'Count  last  column  if  it  has  data  in  it 
k  =  k  +  1 

If  Not  rel .Matches (ColumnData . Clip) . Count  =  0  Then 
1-1  +  1 
End  If 

'Make  user  reformat  data  so  the  routine  will  not  break 
If  Not  m  =  1  -  1  Then 

MessageBox . Show ( " It  appears  that  you  have  a  column  with  missing  data.  Please 
delete  or  fill  in  any  columns  with  no  data  that  are  inbetween  data-bearing  columns", 
"Error",  MessageBoxButtons . OK,  MessageBoxIcon . Error ) 

Return 
End  If 

’Determine  the  number  of  replicates 

Dim  Replicates  As  Integer  =  CType (DataTable .Replicates ,  Integer) 

If  Replicates  =  Nothing  Then 

Dim  ReplicateCells  As  CellRange 

Repl icateCells  =  DataTable . DataTable . GetCellRange ( 1 ,  2,  CType (DataTable . 
DataTable . Rows . Count  -  1,  Integer),  2) 

Dim  maxReplicate  As  Integer 

maxReplicate  =  CType (DataTable . DataTable .Aggregate (AggregateEnum . Max,  * 

ReplicateCells,  AggregateFlags .None ) ,  Integer) 

Replicates  =  maxReplicate 


End  If 


'Create  an  array  to  "hold"  the  to-be-processed  data 


z)  , 


Dim  x,  z  As  Integer 

Dim  n  As  Integer  =  SelectedSamplesUser . GetLength ( 0 ) 

Dim  SamplesToBeProcessed (n  -  1)  As  String 
Dim  ManovaExpandables (n  -  1)  As  Object 
Dim  ManovaExpandToBe (Replicates  -  1,  1  -  1)  As  Double 
For  m  =  0  To  n  -  1 

SamplesToBeProcessed (m)  =  SelectedSamplesUser (m) . ToString 
For  k  =  1  To  CType (DataTable .DataTable .Rows .Count,  Integer)  -  1 
ColumnData  =  DataTable . DataTable . GetCellRange (k,  1,  k,  1) 

If  ColumnData. Clip  =  SelectedSamplesUser (m)  Then 
For  x  =  0  To  Replicates  -  1 
For  z  =  3  To  2  +  1 

ManovaExpandToBe (x,  z  -  3)  =  CType (DataTable . DataTable (k  +  x,  yt 

Double) 

Next 

Next 
End  If 

Next 

ManovaExpandables (m)  =  ManovaExpandToBe . Clone 

Next 

Dim  myManovaStats  As  New  manova_stats . manova_stats 
Dim  myManova  As  New  manovaexpandt jb . expandtable 
Dim  SelectedSamplesExpanded (n  -  1)  As  Object 
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Dim  SelectedSamplesExpandedStats (n  -  1)  As  Object 

For  m  =  0  To  n  -  1 
Try- 

Call  myManova ,manova_numbers_expand_no_stats ( 1 f  SelectedSamplesExpanded (m) 

,  ManovaExpandables (m) ,  1-1) 

Catch  exp  As  Exception 

*  Will  catch  any  error  that  we're  not  explicitly  trapping. 

MessageBox. Show { "Your  data  table  is  not  setup  correctly...  Error  message:  if 
*  &  exp. Message,  "Serious  Data  Formatting  Problem",  MessageBoxButtons .OK, 
MessageBoxIcon.Stop) 

End  Try 
Try 

Call  myManovaStats  ,manova_numbers_expand_stats  (1,  if 

SelectedSamplesExpandedStats (m) ,  ManovaExpandables (m) ,  1-1) 

Catch  ex  As  Exception 

MessageBox. Show (ex. Message,  "Serious  Error*1,  MessageBoxButtons .OK) 

End  Try 

Next 


'Determine  the  number  of  expanded  rows 

If  SelectedSamplesExpanded. Length  <  2  Then 

MessageBox. Show ( "You  must  select  at  least  two  samples  for  this  test",  "Error", 
MessageBoxButtons . OK,  MessageBoxIcon . Hand) 

Return 
End  If 

Dim  tempArray  As  Array  =  CType (SelectedSamplesExpanded (0) ,  Array) 

Dim  ManovaReplicates  As  Integer  =  tempArray .GetLength(O)  'Length  of  expanded 
Dim  ManovaArrays  As  Integer  =  SelectedSamplesUser .GetLength (0)  'Number  of  Samples 
Dim  SelectedSamplesUserExpanded( (ManovaArrays  *  ManovaReplicates)  -  1}  As  Object 

'Create  an  array  of  expanded  sample  names 
Dim  CounterExpanded  As  Integer 
Dim  index  As  Integer  =  0 

For  CounterExpanded  =  0  To  ManovaArrays  -  1 

For  Counter  =  index  To  (index  +  ManovaReplicates)  -  1 

SelectedSamplesUserExpanded (Counter)  -  SamplesToBeProcessed  if 

(  Count  e  r Expanded ) 

Next 

index  +-  10 

Next 

'Determine  the  number  of  combinations  of  sample  tests 
Dim  NumberOfTests  As  Integer  =  0 
For  Counter  =  0  To  ManovaArrays  -  1 

NumberOfTests  -  NumberOfTests  -i-  Counter 

Next 

'Make  new  arrays  with  all  the  test  combinations 
Dim  tempArray2  As  Array 

Dim  SampleNameTest ( (ManovaReplicates  *  2)  -  1)  As  Object 

Dim  SampleDataTest ({ (ManovaReplicates  *  2)  -1),  1  -  1)  As  Double 

Dim  SampleDataTestArray (NumberOfTests  -  1}  As  Object 

Dim  SampleNameTest Array (NumberOfTests  -  1)  As  Object 

CounterExpanded  -  0 

Dim  TestCounter  As  Integer  =  0 

Dim  PyramidCounter  As  Integer  =  1 

Dim  TestArrayCounter  As  Integer  =  0 

For  TestCounter  =  0  To  ManovaArrays  -  1 

For  Counter  -  PyramidCounter  To  ManovaArrays  -  1 

tempArray  =  CType (SelectedSamplesExpanded (TestCounter) ,  Array) 
tempArray2  =  CType (SelectedSamplesExpanded (Counter) ,  Array) 

'Add  tempArray  into  new  array 

Array. Copy (tempArray,  1,  SampleDataTest,  0,  tempArray . Length) 

'Add  tempArray2  into  new  array  after  tempArray 


106 


C:\Documents  and  Settings\t jb\My  Documents\ . . .  Projects\IRMS_Processing_OQ\manova. vb 


6 


Length) 


Array . Copy ( tempArray2 ,  1,  SampleDataTest ,  t empArr ay . Length,  tempArray2 . 


’Add  sample  names  to  new  Array 

For  index  =  0  To  ManovaReplicates  -  1 

SampleNameTest (index)  =  SelectedSamplesUser (TestCounter ) 

Next 

For  index  =  ManovaReplicates  To  SampleNameTest . Length  -  1 
SampleNameTest (index)  =  SelectedSamplesUser {Counter ) 

Next 


CounterExpanded  +=  ManovaReplicates  *  2 


*  Clone  these  into  a  the  counted  Array 

SampleDataTest Array (TestArrayCounter)  *  SampleDataTest . Clone 
SampleNameTestArray (TestArrayCounter )  =  SampleNameTest . Clone 
’Now,  increment  the  TestArrayCounter 
TestArrayCounter  +=  1 


Next 

' Increment  the  PyramidCounter 
PyramidCounter  +=  1 

Next 

Dim  myManovaExpandedStats  As  New  manova_expand_stats ,manova_expand_statistics 
Dim  myManovaStat ist ics  As  New  raanova_stats_f unctions . manova_stats_f unct 
Dim  ManovaProb (NumberOfTests  -  1)  As  Object 
Dim  ManovaStats (NumberOfTests  -  1)  As  Object 
Dim  ManovaStatsTemp  As  Object 

'Dim  all  of  the  Manova  stats  individually 
Dim  Within (NumberOfTests  -  1)  As  Object 
Dim  WithinTemp  As  Object 

Dim  Between (NumberOfTests  -  1)  As  Object 
Dim  BetweenTemp  As  Object 
Dim  Total (NumberOfTests  -  1)  As  Object 
Dim  TotalTemp  As  Object 

Dim  df Within (NumberOfTests  -  1)  As  Object 
Dim  df WithinTemp  As  Object 

Dim  df Between (NumberOfTests  -  1)  As  Object 

Dim  df BetweenTemp  As  Object 

Dim  dfTotal (NumberOfTests  -  1)  As  Object 

Dim  df TotalTemp  As  Object 

Dim  lambda (NumberOfTests  -  1)  As  Object 

Dim  lambdaTemp  As  Object 

Dim  chisq (NumberOfTests  -  1)  As  Object 

Dim  chisqTemp  As  Object 

Dim  chisqdf (NumberOfTests  -  1)  As  Object 
Dim  chisqdfTemp  As  Object 

Dim  eigenval (NumberOfTests  -  1)  As  Object 

Dim  eigenvalTemp  As  Object 

Dim  eigenvec (NumberOfTests  -  1)  As  Object 

Dim  eigenvecTemp  As  Object 

Dim  canon (NumberOfTests  -  1)  As  Object 

Dim  canonTemp  As  Object 

Dim  mdist (NumberOfTests  -  1)  As  Object 

Dim  mdistTemp  As  Object 

Dim  gnames (NumberOfTests  -  1)  As  Object 
Dim  gnamesTemp  As  Object 

Dim  SampleDataTestTempArray  As  Object 
Dim  SampleNamesTestTempArray  As  Object 
Dim  ManovaProbTemp  As  Object 
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For  index  =  0  To  NumberOfTests  -  1 

SampleDataTestTempArray  =  S amp leDataTest Array (index) 

SampleNamesTestTempArray  =  SampleNameTest Array! index) 

Try 

Cal 1  myManovajp . toms_manova_p { 1 ,  ManovaProbTemp ,  SampleNamesTestTempArray ,  & 
SampleDataTestTempArray) 

Catch  exp  As  Exception 

’Will  catch  any  error  that  we’re  not  explicitly  trapping. 

Me ssageBox. Show (exp. mess age,  "Error",  MessageBoxButtons .OKCaneel r 
MessageBoxIcon. Stop) 

Return 
End  Try 

ManovaProb( index)  =  ManovaProbTemp 
Try 

Call  myManovaExpandedStats . toms_manova_s tat s { 1 ,  ManovaStatsTemp , 
SampleNamesTestTempArray,  SampleDataTestTempArray) 

Catch  ex  As  Exception 

MessageBox. Show (ex. Message,  "Error",  MessageBoxButtons .OK,  MessageBoxIcon. 

Error) 

Return 
End  Try 

ManovaS tats (index)  =  ManovaStatsTemp 


Try 

Call  myManovaStatistics . manova_Joe  tween (1 ,  BetweenTemp, 
SampleDataTestTempArray,  SampleNamesTestTempArray) 

Catch  ex  As  Exception 

MessageBox. Show (ex. Message,  "Error",  MessageBoxButtons .OK,  MessageBoxIcon. 

Error) 

Return 
End  Try 

Between (index)  =  BetweenTemp 
Try 

Call  myManovaStatistics ,manova_wi thin (1,  WithinTemp, 

SampleDataTestTempArray ,  S ampl eNamesTes tTempAr r ay ) 

Catch  ex  As  Exception 

MessageBox. Show (ex. Message,  "Error",  MessageBoxButtons .OK,  MessageBoxIcon. 

Error) 

Return 
End  Try 

Within (index)  =  WithinTemp 
Try 

Call  myManovaStatistics .manova_total (1 ,  TotalTemp,  SampleDataTestTempArray^ 
,  SampleNamesTestTempArray) 

Catch  ex  As  Exception 

MessageBox. Show (ex .Message,  "Error",  MessageBoxButtons . OK,  MessageBoxIcon. 

Error) 

Return 
End  Try 

Total (index)  =  TotalTemp 
Try 

Call  myManovaStatistics, manova_df within (1,  dfWithinTemp, 

Sampl eDa taTe s tTempAr ray ,  Samp leName sTes tTempAr ray ) 

Catch  ex  As  Exception 

MessageBox . Show ( ex . Message ,  "Error",  MessageBoxButtons . OK,  MessageBoxIcon.  k? 

Error) 

Return 
End  Try 

df Within (index)  =  dfWithinTemp 
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Try 

Call  myManovaStatistics . manova_df between (1 ,  df BetweenTerap,  * 

SampleDataTestTempArray,  SampleNamesTestTempArray) 

Catch  ex  As  Exception 

MessageBox . Show ( ex . Message ,  "Error",  MessageBoxButtons.OK,  MessageBoxIcon. ^ 

Error) 

Return 
End  Try 

dfBetween (index)  =  df BetweenTemp 


Try 

Call  myManovaS tat ist ics . manova_df total (1,  dfTotalTemp,  * 

SampleDataTestTempArray,  SampleNamesTestTempArray) 

Catch  ex  As  Exception 

MessageBox. Show (ex. Message,  "Error",  MessageBoxButtons.OK,  MessageBoxIcon.  / 

Error) 

Return 
End  Try 

dfTotal (index)  =  dfTotalTemp 
Try 

Call  myManovaS tat ist ics. manovalambda (1 ,  lambdaTemp,  * 

SampleDataTestTempArray,  SampleNamesTestTempArray) 

Catch  ex  As  Exception 

MessageBox. Show (ex. Message,  "Error",  MessageBoxButtons.OK,  MessageBoxIcon . X 

Error) 

Return 
End  Try 

lambda (index)  =  lambdaTemp 
Try 

Call  myManovaS tat ist ics. manova_chisq (1 ,  chisqTemp,  SampleDataTestTempArray 
,  SampleNamesTestTempArray) 

Catch  ex  As  Exception 

MessageBox. Show (ex. Message,  "Error",  MessageBoxButtons.OK,  MessageBoxIcon .  kT 

Error) 

Return 
End  Try 

chisq (index)  =  chisqTemp 


Try 

Call  myManovaStatistics . manova_chisqdf ( 1 ,  chisqdfTemp,  * 

SampleDataTestTempArray,  SampleNamesTestTempArray) 

Catch  ex  As  Exception 

MessageBox. Show (ex. Message,  "Error" ,  MessageBoxButtons.OK,  MessageBoxIcon. * 

Error) 

Return 
End  Try 

chisqdf (index)  =  chisqdfTemp 
Try 

Call  myManovaStatistics .manova_eigenval (1,  eigenvalTemp,  * 

SampleDataTestTempArray,  SampleNamesTestTempArray) 

Catch  ex  As  Exception 

MessageBox. Show (ex. Message,  "Error",  MessageBoxButtons.OK,  MessageBoxIcon.  kf 

Error) 

Return 
End  Try 
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eigenval  (index)  =  eigenvalTemp 

Try 

Call  myManovaStatistics ,manova_eigenvec (1 ,  eigenvecTemp, 

SampleDataTes tTempArray,  SampleNamesTestTempArray) 

Catch  ex  As  Exception 

MessageBox. Show (ex. Message,  “Error",  MessageBoxButtons . OK,  MessageBoxIcon . 

Error) 

Return 
End  Try 

eigenvec (index)  =  eigenvecTemp 
Try 

Call  myManovaStatistics .manova_canon (1,  canonTemp,  SampleBataTestTempArray 
,  SampleNamesTestTempArray) 

Catch  ex  As  Exception 

MessageBox. Show (ex. Message,  "Error",  MessageBoxButtons .OK,  MessageBoxIcon. 

Error) 

Return 
End  Try 

canon (index)  =  canonTemp 
Try 

Call  myManovaStatistics.manova_mdist (1,  mdistTemp,  S amp leDataTest Temp Arrays 
,  SampleNamesTestTempArray) 

Catch  ex  As  Exception 

MessageBox. Show (ex. Message,  "Error",  MessageBoxButtons . OK,  MessageBoxIcon . 

Error) 

Return 
End  Try 

mdist (index)  =  mdistTemp 
Try 

Call  myManovaStatistics ,manova_gnames (1,  gnamesTemp, 

S ampleDataTes tTempArray ,  Samp 1 eNamesTes tTempArray ) 

Catch  ex  As  Exception 

MessageBox. Show (ex. Message,  "Error",  MessageBoxButtons . OK,  MessageBoxIcon . 

Error) 

Return 
End  Try 

gnames (index)  =  gnamesTemp 


Next 

’Create  a  text  file  with  the  P  values 
Dim  testsString  As  String  =  "" 

Dim  tempProbValue  As  Double 
Dim  tempProbValueRound  As  Single 
Dim  tests tringTemp  As  String  =  * " 

Dim  testsStringArray  As  Array 
For  index  =  0  To  NumberOf Tests  -  1 

testsStringArray  =  CType (gnames .GetValue (index) ,  Array) 

testsString  =  testsString  +  CType (testsStringArray .GetValue (X ,  1),  String)  + 
ControlChars . Tab  +  ControlChars . Tab 

testsString  =  testsString  +  CType (testsStringArray .GetValue (2 ,  1),  String)  + 
ControlChars . Tab  +  ControlChars . Tab 

tempProbValue  -  CType (ManovaProb. GetValue (index) ,  Double) 

If  tempProbValue  <  0.001  Then 
testStringTemp  =  *<  0.001" 

End  If 

If  tempProbValue  <  0.01  And  tempProbValue  >=  0.001  Then 
testStringTemp  =  "<  0.01" 

End  If 
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If  tempProbValue  >  0.01  Then 

tempProbValueRound  =  CType (Math. Round (tempProbValue ,  4),  Single) 
tests tringTemp  =  CType {tempProbValueRound,  String) 

End  If 

testsString  =  testsString  +  testStringTemp  +  ControlChars . Lf 


Next 

'Create  the  output  text  box 

Dim  richText  As  String  =  "Multiple  analysis  of  variance  completed  successfully.  " * 

+  ControlChars . Lf  +  ControlChars . Lf  +  _ 

"In  data  sets  with  multiple  variables,  it  is  desireable  to  determine  if  the  means 
of  two  samples  are  significantly  different.  A  multiple  analysis  of  variance  (MANOVA) 
can  be  used  to  produce  probability  values.  A  P  value  of  0.01  essentially  means  that 
one  can  be  99%  certain  that  chance  alone  would  not  lead  to  the  differences  seen 
between  sample  means.  In  this  analysis,  one  must  have  a  'square'  matrix.  Therefore,  * 
the  original  data  is  expanded  using  a  random  number  generator  to  produce  the  proper 
matrix  dimensions.  "  __ 

+  ControlChars . Lf  +  ControlChars . Lf  +  _ 

"The  following  table  shows  each  test  (Sample  1  vs  Sample  2)  and  the  P  value.  A  P 
value  of  less  than  0.05  indicates  a  significant  difference."  _ 

+  ControlChars  .  Lf  +  ControlChars .  Lf  +  __ 

"Sample  1"  +  ControlChars . Tab  +  ControlChars . Tab  +  "Sample  2"  +  ControlChars . Tab 
ControlChars .Tab  +  "P  value"  _ 

+  ControlChars . Lf  +  _ 

" - n  +  ControlChars .Tab  +  ControlChars . Tab  +  " - "  +  ControlChars . Tab  +* 

ControlChars. Tab  +  " - "  +  ControlChars . Lf  +  ControlChars . Lf  +  testsString 


Me. Between  =  Between 

Me. Within  =  Within 

Me. Total  =  Total 

Me.dfWithin  =  dfWithin 

Me. df Between  =  df Between 

Me. df Total  =  df Total 

Me . Lambda  =  lambda 

Me.Chisq  =  chisq 

Me.Eigenval  =  eigenval 

Me.Eigenvec  =  eigenvec 

Me . Canon  =  canon 

Me.Mdist  -  mdist 

Me.Gnames  »  gnames 

Me . testsString  =  testsString 

Me. richText  =  richText 

End  Sub 
End  Class 
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Imports  System. Text . RegularExpressions 
Imports  Cl . Win . ClFlexGrid 


Public  Class  pea 

Private  myPCA__Output  As  PCA_output . PCA_output_data 

Private  myNewVariances  As  Object 

Private  mySamples  As  Integer 

Private  myVariables  As  Integer 

Private  mySelectedSamples (}  As  Object 

Private  myTempData  As  Object 

Private  myRiehText  As  String 


Public  Readonly  Property  NewVariances { )  As  Object 
Get 

Return  myNewVariances 
End  Get 
End  Property 

Public  Readonly  Property  Samples ()  As  Integer 
Get 

Return  mySamples 
End  Get 
End  Property 

Public  Readonly  Property  Variables {}  As  Integer 
Get 

Return  myVariables 
End  Get 
End  Property 

Public  Readonly  Property  SelectedSamples {}  As  Object 
Get 

Return  mySelectedSamples 
End  Get 
End  Property 

Public  Readonly  Property  TempDataO  As  Object 
Get 

Return  myTempData 
End  Get 
End  Property 

Public  Readonly  Property  RichTextQ  As  String 
Get 

Return  myRiehText 
End  Get 
End  Property 


Friend  Sub  New(ByRef  DataTable  As  Data_Table) 

Dim  myPCA_Output  As  New  PCA_output . PCA_output_dala 
Dim  i  As  Integer 

i  =  DataTable. DataTable. Rows. Count  -  1 

•Define  a  grid  with  all  of  the  data  in  column  1  and  2 

Dim  SelectSamples  As  New  Select_Samples 

Dim  SampleNameList  As  New  Cl . Win . ClFlexGrid . CellRange 

SampleNameList  -  DataTable .DataTable . GetCellRange (1 ,  lt  i,  1) 

Dim  newlineString  As  String  =  Nothing 

Dim  Counter  As  Integer 

Dim  sampleNameClip  As  String  =  SampleNameList . Clip 
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‘Make  the  clip  devoid  of  whitespace  cells 
For  Counter  =  1  To  i 

If  CType (DataTable.DataTable (Counter,  2),  String)  -  "1"  Then 

newlineString  =  newlineString  &  CType (DataTable .DataTable (Counter ,  1),  * 

String)  &  Environment .NewLine 
End  If 

Next 

‘Open  up  the  Sample  Selection  Dialog 
SelectSamples . samples  =  newlineString 

SelectSamples .Text  =  "Choose  Samples  for  PCA  Analysis" 

Try 

SelectSamples . ShowDialog ( ) 

Catch  ex  As  Exception 

MessageBox. Show (ex, Message,  "Error  creating  dialog",  MessageBoxButtons . OK, 
MessageBoxIcon . Exclamation) 

End  Try 

If  SelectSamples . DialogResult  =  DialogResult . Cancel  Then 
Return 
End  If 

'Determine  which  samples  where  selected  and  save  the  names  in  a  String  Clip 
Dim  SelectedSamples  As  String 

SelectedSamples  =  SelectSamples . SampleChoice ( ) 

Dim  q  As  Integer  =  0 

'Find  where  the  alpha  next  to  \n  characters  are 
Dim  re  As  New  Regex ( " [a-zA-ZO-9] \xOD" ) 

Dim  me  As  MatchCollection  =  re .Matches (SelectedSamples) 

’Find  out  how  many  alpha  or  numbers  next  to  \n  characters  there  are 
q  =  me. Count 

•Make  an  array  of  sample  names  displayed  to  user 
Dim  SelectedSampleArray (q,  1)  As  String 
Dim  Sample Counter  As  Integer 
For  SampleCounter  =  0  To  q 

SelectedSampleArray (SampleCounter,  0 )  =  CType (SelectSamples . SelectSamples 
(SampleCounter  +  1,  1) ,  String) 

SelectedSampleArray (SampleCounter,  1)  =  CType (SelectSamples . SelectSamples  * 

(SampleCounter  +  1,  2) ,  String) 

Next 

'Make  an  array  of  selected  samples  to  be  processed 
Dim  SelectedSamplesUser (q)  As  String 
Dim  arraynumber  As  Integer  =  0 
For  SampleCounter  =  0  To  q 

If  SelectedSampleArray (SampleCounter ,  0)  =  "True"  Then 

SelectedSamplesUser (arraynumber)  =  SelectedSampleArray (SampleCounter ,  1) 
arraynumber  =  arraynumber  +  1 
End  If 

Next 

'Check  to  make  sure  at  least  2  samples  were  chosen 
If  arraynumber  <  2  Then 

MessageBox. Show ("You  must  select  at  least  two  samples",  "Sample  Selection", 
MessageBoxButtons . OK,  MessageBoxIcon . Exclamation) 

Return 
End  If 

'Redimension  the  selected  sample  array 

ReDim  Preserve  SelectedSamplesUser (arraynumber  -  1) 


*  Find  out  how  many  columns  have  data  in  them 
Dim  NumberofVariables  As  CellRange 
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Numberof Variables  =  DataTable . DataTable. GetCellRange {1 ,  3,  CType (DataTable . 
DataTable , Rows . Count ,  Integer)  -  1,  CType (DataTable .DataTable . Cols . Count ,  Integer)  - 
1) 

Dim  ColumnData,  AdjacentColumnData  As  CellRange 
Dim  1  As  Integer  =  0 
Dim  k,  m  As  Integer 


’Count  the  number  of  filled  in  columns  (i.e.  how  many  variables). 

Dim  rel  As  New  Regex (" [0-9] " ) 

For  k  =  3  To  CType (DataTable . DataTable . Cols .Count ,  Integer)  -  2 

ColumnData  -  DataTable . DataTable .GetCellRange (1 ,  k,  CType (DataTable .DataTable . 
Rows. Count,  Integer)  -  1,  k) 

’provide  a  counter  to  make  sure  all  columns  are  contiguous 
AdjacentColumnData  -  DataTable .DataTable .GetCellRange (1,  k  +  1,  CType 
(DataTable. DataTable. Rows. Count,  Integer)  -  1,  k  +  1) 

If  Not  rel. Matches { ColumnData. Cl ip) .Count  =  0  Then 
1-1  +  1 
End  If 

'count  if  columns  are  not  adjacent  (i.e.  any  empty  columns  in  between) 

If  Not  rel. Matches (ColumnData. Clip) .Count  =  0  And  Not  rel. Matches 
(Adjacent ColumnData. Cl ip) .Count  -  0  Then 
m  =  m  +  1 
End  If 

Next 

’Count  last  column  if  it  has  data  in  it 
k  -  k  +  1 

If  Not  rel .Matches (ColumnData . Clip) .Count  -  0  Then 
1  =  1  +  1 
End  If 

’Make  user  reformat  data  so  the  routine  will  not  break 
If  Not  m  =  1  -  1  Then 

MessageBox. Show ( *' It  appears  that  you  have  a  column  with  missing  data.  Please 
delete  or  fill  in  any  columns  with  no  data  that  are  inbetween  data-bearing  columns", 
’’Error",  MessageBoxButtons  .  OK,  MessageBoxIcon .  Error) 

Return 
End  If 

’Determine  the  number  of  replicates 

Dim  Replicates  As  Integer  =  CType (DataTable. Replicates,  Integer) 

If  Replicates  =  Nothing  Then 

Dim  ReplicateCells  As  CellRange 

ReplicateCells  =  DataTable .DataTable. GetCellRange (1 ,  2,  CType (DataTable . 
DataTable . Rows . Count  -  1,  Integer),  2) 

Dim  maxReplicate  As  Integer 

maxReplicate  =  CType (DataTable .DataTable .Aggregate (AggregateEnum. Max, 
ReplicateCells,  AggregateFlags .None) ,  Integer) 

Replicates  =  maxReplicate 
End  If 


’Create  an  array  to  "hold"  the  averages  and  STDs  of  each  group  of  data 

Dim  x,  z  As  Integer 

Dim  AverageRange  As  CellRange 

Dim  n  As  Integer  =  SelectedSamplesUser .GetLength (0) 

Dim  SamplesToBeProcessed (n  -  1)  As  String 
Dim  PCAToBe (n  -  1,  1  -  1)  As  Double 
Dim  PCAStdsToBe (n  -  1,  1  -  1)  As  Double 
For  m  =  0  To  n  -  1 

SamplesToBeProcessed (m)  =  SelectedSamplesUser (m) .ToString 
For  k  =  1  To  CType (DataTable .DataTable . Rows . Count ,  Integer)  -  1 
ColumnData  =  DataTable .DataTable . GetCellRange (k,  1,  k,  1) 

If  ColumnData. Clip  =  SelectedSamplesUser (m)  Then 
For  z  =  3  To  2  +  1 

AverageRange  =  DataTable -DataTable . GetCellRange (k,  z,  k  +  ^ 

Replicates  -  1,  z) 
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PCAToBe (m,  z  -  3)  =  CType (DataTable - DataTable . Aggregate  wf 

(AggregateEnum. Average,  AverageRange ,  AggregateFlags . None) ,  Double) 

PCAStdsToBe (m,  z  -  3)  =  CType (DataTable . DataTable . Aggregate 
(AggregateEnum. Std#  AverageRange,  AggregateFlags .None ) ,  Double) 

Next 
End  If 

Next 

Next 


Dim  newdata  As  Object 
Dim  pcs  As  Object 
Dim  variances  As  Object 
Dim  t2  As  Object 
Try 

Call  myPCA_Output . toms_pca_newdata (1 ,  newdata,  PCAToBe) 

Catch  ex  As  Exception 

’Will  catch  any  error  that  we’re  not  explicitly  trapping. 

MessageBox. Show ( "Your  Data  Table  has  some  problem  with  the  'newdata1  routine, 
Error  message:  ”  &  ex. message,  "Serious  Data  Problem",  MessageBoxButtons . OK, 
MessageBoxIcon . Stop ) 

Return 
End  Try 

Try 

Call  my P C A_Ou t pu t . toms_pca_pcs { 1 ,  pcs ,  PCAToBe ) 

Catch  ex  As  Exception 

’Will  catch  any  error  that  we're  not  explicitly  trapping. 

MessageBox. Show ( "Your  Data  Table  has  some  problem  with  the  'pcs'  routine. 

Error  message:  ”  &  ex. message,  "Serious  Data  Problem",  MessageBoxButtons . OK, 
MessageBoxIcon. Stop) 

Return 
End  Try 

Try 

Call  myPCA_Output . toms_pca_variances ( 1 ,  variances,  PCAToBe) 

Catch  ex  As  Exception 

'Will  catch  any  error  that  we're  not  explicitly  trapping. 

MessageBox. Show ( "Your  Data  Table  has  some  problem  'variances'  routine.  Error 
message:  "  &  ex. Message,  "Serious  Data  Problem",  MessageBoxButtons . OK,  MessageBoxIcon . 
Stop) 

Return 
End  Try 

Try 

Call  myPCA_Output . toms_pca_t2 (1,  t2,  PCAToBe) 

Catch  ex  As  Exception 

'Will  catch  any  error  that  we're  not  explicitly  trapping. 

MessageBox. Show ( "Your  Data  Table  has  some  problem  't2'  routine",  "Serious  Dataur 
Problem",  MessageBoxButtons . OK,  MessageBoxIcon. Stop) 

Return 
End  Try 

Dim  tempnewdata  As  Array  =  CType (newdata ,  Array) 

Dim  newtempdata (n  -  1,  1  -  1)  As  Object 
For  m  =  0  To  n  -  1 

For  k  =  0  To  1  -  1 

newtempdata (m,  k)  *  tempnewdata . GetValue (m  +  1,  k  +  1) 

Next 

Next 

Dim  tempnewvariances  As  Array  =  CType (variances ,  Array) 

Dim  newtempvariances (1  -  1)  As  Object 
For  k  =  0  To  1-1 

newtempvariances (k)  =  tempnewvariances . GetValue (k  +1,  1) 


Next 


\  \ 
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’Create  a  string  of  the  pcs 

Dim  temppes  As  Array  =  CType (pcs,  Array) 

Dim  temppcsSingle  As  Single 

Dim  temppes SingleRound  As  Single 

Dim  temppestext  As  String 

For  m  =  1  To  temppes . GetUpperBound ( 1 ) 

For  k  -  1  To  1 

temppcsSingle  =  CType (temppes .GetValue (m,  k) f  Single) 
temppcsSingleRound  =  CType {Math. Round (temppcsSingle,  4),  Single) 
temppestext  =  temppestext  &  CType {temppcsSingleRound,  String)  +  it 

ControlChars . Tab 
Next 

temppestext  =  temppestext  +  ControlChars . Lf 

Next 


’Create  string  of  variances 

Dim  tempvariancesText  As  String 

Dim  temp Variance  As  Double 

Dim  tempVariancesSingle  As  Single  =  0 

Dim  tempVariances SingleRound  As  Single 

For  k  =  0  To  1  -  1 

tempVariancesSingle  =  tempVariancesSingle  +  CType {newtempvarianees (k) ,  Single) 

Next 

For  k  =  0  To  1  -  1 

tempVariance  -  (100  *  CType (newtempvarianees (k) ,  Single))  /  it 

tempVariancesSingle 

tempVariancesSingleRound  =  CType  (Math.  Round  (tempVariance,  4),  Single) 
tempvariancesText  -  tempvariancesText  &  CType (tempVariancesSingleRound,  i t 

String)  +  ControlChars . Tab 
Next 


’Create  a  string  of  the  newdata 
Dim  tempnewdataS ingle  As  Single 
Dim  tempnewdataSingleRound  As  Single 
Dim  tempnewdatatext  As  String 
For  m  =  1  To  n  -  1 
For  k  =  1  To  1 

tempnewdataSingle  =  CType (tempnewdata . GetValue (m,  k)  ,  Single) 
tempnewdataSingleRound  -  CType (Math. Round (tempnewdataSingle,  5),  Single) 
tempnewdatatext  =  tempnewdatatext  &  CType (tempnewdataSingleRound,  String)  t 
4  ControlChars . Tab 
Next 

tempnewdatatext  =  tempnewdatatext  +  ControlChars . Lf 

Next 


Dim  richText  As  String  =  "PCA  analysis  completed  successfully.  *  _ 

4  ControlChars . Lf  +  ControlChars . Lf  4  _ 

"In  data  sets  with  multiple  variables,  groups  of  variables  often  behave  similarly. 
More  than  one  variable  may  in  fact  be  describing  the  same  principle  of  the  system.  i t 

PCA  attempts  to  simplify  a  multivariate  data  set  by  replacing  a  group  of  variables  it 
with  a  single  new  variable,  called  a  principal  component.  Each  principal  component  is  t 
a  linear  combination  of  the  original  variables.  The  variance  of  each  principal 
component  is  the  maximum  among  all  possible  choices.  The  analysis  provides  informations 
as  to  how  much  of  the  original  variance  is  represented  by  each  principal  component.  t 
Therefore,  when  the  primary  components  are  graphed  against  one -another,  data  sets  that  it 
are  highly  similar  will  plot  together,  while  dissimilar  data  sets  will  occupy  it 


different  spaces  on  a  graph.”  _ 

4  ControlChars . Lf  4  ControlChars . Lf  4  _ 

’’The  result  of  placing  the  scores  in  a  new  coordinate  system  allows  visualizing  t 
the  data.  The  loadings  in  the  new  coordinate  system  are  shown  here:"  __ 

4  ControlChars .  Lf  4  ControlChars  .  Lf  -f  tempnewdatatext  4  ControlChars  .  Lf  4  it 

ControlChars . Lf  4  _ 

"Variance  data  are  also  produced  during  a  PCA.  Each  variance  output  corresponds  t 
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to  the  principal  components  loadings  shown  above  (by  column) .  The  variances  (as  %)  yt 
are  shown  in  the  bar  chart  (with  cumulative  totals  shown  in  the  bar  labels)  and  below:  nf 

ti 

+  ControlChars . Lf  +  ControlChars . Lf  +  tempvariancesText  +  ControlChars . Lf  +  * 

ControlChars . Lf  +  _ 

"The  whole  purpose  of  PCA  is  to  reduce  the  majority  of  the  variability  to  just  a 
few  new  variables.  For  this  reason,  the  first  and  second  new  variables  are  plotted 
against  one  another.  Most  of  the  variability  is  depicted  in  'Component  One*  (shown 
graphically  on  the  X-Axis  of  the  scatter  plot).  Variability  in  'Component  Two'  (Y-  kf 
Axis  of  scatter  plot)  provides  a  second  dimension  with  the  second-most  variability. 
Therefore  where  samples  cluster,  they  are  more  closely  related. " 

Me .myNewVariances  =  newtempvariances 
Me.mySamples  =  n 
Me . myVariables  =  1 

Me . mySelectedSamples  =  SelectedSamplesUser 
Me . myTempData  =  newtempdata 
Me .myRichText  =  richText 


End  Sub 


End  Class 
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Imports  Cl .Win. Cl Chart 
Imports  System. Drawing. Imaging 
Imports  System. Drawing. Printing 
Imports  Cl .CIPrintDocument 


Public  Class  Plot 

Inherits  System. Windows . Forms . Form 

#Region  *  Windows  Form  Designer  generated  code  " 

Public  Sub  New() 

MyBase.NewO 

*  This  call  is  required  by  the  Windows  Form  Designer. 

InitializeComponent (} 

’Add  any  initialization  after  the  InitializeComponent ()  call 
End  Sub 

’Form  overrides  dispose  to  clean  up  the  component  list. 

Protected  Overloads  Overrides  Sub  Dispose (ByVal  disposing  As  Boolean) 

If  disposing  Then 

If  Not  (components  Is  Nothing)  Then 
components . Dispose ( ) 

End  If 
End  If 

MyBase , Dispose (disposing) 

End  Sub 

’Required  by  the  Windows  Form  Designer 

Private  components  As  System. ComponentModel . IContainer 

*  NOTE :  The  following  procedure  is  required  by  the  Windows  Form  Designer 
*It  can  be  modified  using  the  Windows  Form  Designer. 

’Do  not  modify  it  using  the  code  editor. 

Friend  WithEvents  chartPCA  As  Cl . Win. CIChart .CIChart 

Friend  WithEvents  ctxCopy  As  System. Windows . Forms .Menul tern 

Friend  WithEvents  ctxSaveAs  As  System. Windows . Forms .Menul tern 

Friend  WithEvents  Menultem3  As  System. Windows . Forms .Menultem 

Friend  WithEvents  ctxPrint  As  System. Windows . Forms .Menultem 

Friend  WithEvents  MenuItemS  As  System. Windows . Forms .Menultem 

Friend  WithEvents  ctxExit  As  System. Windows . Forms . Menultem 

Friend  WithEvents  ContextMenuPlot  As  System. Windows . Forms . ContextMenu 

<3ys tem.Diagnos ties .Debugger St epThrough( ) >  Private  Sub  InitializeComponent ( ) 

Dim  resources  As  System. Resources . Resour ceManager  =  New  System. Resources . 
ResourceManager (GetType (Plot) ) 

Me. chartPCA  =  New  Cl .Win. CIChart .CIChart 

Me . ContextMenuPlot  -  New  System. Windows . Forms . ContextMenu 

Me. ctxCopy  =  New  System. Windows . Forms  .Menultem 

Me. ctxSaveAs  =  New  System. Windows . Forms . Menultem 

Me. Menul tem3  =  New  System .Windows . Forms .Menultem 

Me. ctxPrint  -  New  System. Windows . Forms .Menultem 

Me. Menul tem6  =  New  System. Windows . Forms, Menultem 

Me. ctxExit  -  New  System. Windows . Forms .Menultem 

CType (Me . chartPCA,  System. ComponentModel . ISupport Initialize) . Beginlnit ( ) 

Me . SuspendLayout ( ) 

’chartPCA 

Me . chartPCA. BackColor  =  System . Drawing . Color . White 
Me .chartPCA, DataSource  =  Nothing 

Me. chartPCA. Dock  =  System. Windows . Forms .DockStyle .Fill 
Me . chartPCA. Location  =  New  System. Drawing . Point (0 f  0) 

Me.  chartPCA.  Name  =  "chartPCA1* 

Me . chartPCA. PropBag  -  "<?xml  version^" "1 . 0 " ”?><Chart2DPropBag  Version= ” ” " " > 
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<StyleCollection><NamedStylexPar"  &  __ 

,lentName>Area</ParentName><StyleData>Border=None/  Black,  1 ;  </StyleData><NaIne>PlotAr,,  ^ 

5c 

"ea</Namex/NamedStylexNamedStylexParentName>Legend . def aul t</ ParentNamexStyleD" ^ 

&  _ 

Mata>BackColor=Window;  </StyleDataxName>Legend< /Namex/NamedStylexNamedStylexPa"  * 

& 

,,rentName>Control</ParentNamexStyleData>Border=None ,  Black,  1 ;  </StyleDataxName>Fo,,  ** 

Sc  _ 

Moter</Namex/NamedStylexNamedStylexParentName>Area.default</ParentNamexStyleDn  k? 

Sc  _ 

“at a  /xName>Area</Namex/NamedStylexNaraedStyle><ParentName>Control . def ault</Par"  X 

Sc  __ 

"entNamexStyleData>BackColor=White;  </StyleDataxName>Control</Namex/NamedStyle>" 

&  _ 

,,<NaraedStylexParentNaTne>Area</ParentNamexStyleData>Rotation=RotateO;Border=NoneV 
" , Transparent, 1 ; AlignHorz=Center ;BackColor=Transparent ;Opaque=False ; Font=Microsof " 

Sc  _ 

"  t  Sans  Serif  ,  8 . 25pt ;  AlignVert=Bottom;  </StyleDataxName>AxisX</Namex/NamedStylen 

5c  _ 

"  ><NamedStylexParentName>Area</ParentNamexStyleData>Rotation=Rotate270  ;Border=N" 

&  _ 

"one , Transparent , 1 ; AlignHor z=Near ; BackColor=Transparent ; Opaque=False ; Font ^Microso" 

Sc  _ 

"ft  Sans  Serif,  8 . 25pt ;  AlignVert=Center  ?  </StyleDataxName>AxisY</Namex/NamedStyl « 

5c  _ 

nexNamedStylexParentName>IjabelStyleDe  fault .  def  aultc/ParentNamexStyleData  /><Na"  * 

&  _ 

"me>L»abelStyleDef  aul  t< /Name  x/NamedStylexNamedStylex  Par  entName>Control</ParentN" 

5c  _ 

"amexStyleData>Border=None ,  Black,  1 ;  Wrap  =  False ;  AlignVert-Top;  </StyleDataxNarae>Le" 

Sc  _ 

Mgend.  default</Name></NamedStyle><NamedStylexParentName>Control</ParentNamexStyn 

Sc  __ 

"leData>Border=None ,  Black,  1 ,-  BackColor=Transparent ;  </StyleDataxName>LabelStyleDef  "  * 

Sc  _ 

"aul  t .  def aul t< /Name x/NamedStyle xNamedStyl ex ParentName> Control < /  ParentNamexSty" 

Sc  __ 

" leData>Border=None , Black , 1 ; BackColor2 =White ; BackColor=White ; </StyleDataxName>He " 

5c  _ 

"ader</Namex/NamedStylexNamedStylexParentName  /><StyleData>ForeColor=ControlTe" 

Sc  _ 

"xt ;  Border=None ,  Black ,  1 ;  BackColor=Control ;  </StyleDataxName>Control .  def ault</Name" 

Sc  _ 

K x/NamedStyle xNamedStyle xParentName>Area</ParentNamexStyleData>Rotation=Rotat "  * 

Sc  _ 

ne90  ,-Border=None,  Transparent,  1 ;  AlignHorz  =  Far ;  BackColor=Transparent ; AlignVert=Cent "  * 

Sc  _ 

"er ;  </ StyleDataxName>AxisY2</Namex/NamedStylexNamedStylexParentName>Control</  " 

Sc 

" ParentName xS tyleDat a>Border=None ,  Black ,  1 ;  AlignVert=Top ;  </StyleDataxName>Area  .  d"  k? 
Sc 

"ef  aul  t< /Name  x/NamedStyl  ex/ Style  Collect  ionxHeader  Compass="  "North"  MxText>  ^ 

Princi"  &  _ 

"pal  Components  Loadings</Text x/HeaderxFooter  Compass=  "  "South"  " xText  /></  * 

Footer>"  &  _ 

"<Legend  Visible=  ""  False"  "  Compass=  "  "East ""  xText  /></LegendxChartArea  /><Axes>  * 


<Axis"  Sc  _ 

"  UnitMa  j  or= "  "  0 . 2  "  "  UnitMinor=  "  "  0 . 1  “  "  AutoMajor=»  "True"  "  AutoMinor=  "  "True"  "  * 

AutoMax-""True"  5c  _ 

"  "  ”  AutoMin=  "  "True  "  "  Max=""l""  Min=""-1" "  _onTop=  "  "  0  "  "  Compass-"  "South""  >  * 

<GridMajor  AutoSpac"  &  _ 

"e=" "True""  Color=" "LightGray" "  Pattern= " "Dash" "  Thickness= " " 1 " "  /xGridMinor  ^ 

AutoSpace=  "  "  "  5c  _ 

"True""  Color=" "LightGray" “  Pattern^ " "Dash" “  Thickness^" " 1" "  /xText  /></Axis>  ^ 

<Axis  Unit"  Sc 
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"Major=««0.2""  UnitMinor=« *0 , 1""  AutoMajor=" "True" "  AutoMinor= " « True " "  AutoMax-"  it 
"True*1 "  Aut"  &  _ 

«oMin=""True«"  Max=»  "1"  *  Min=""-l,r  "  _onTop=«"0"  «  Compass= *  "West 8  "  xGridMa  jor  it 

AutoSpaee="  "Tru"  &  __ 

*e"“  Color=" "LightGray" "  Pattern-"  "Dash"  "  Thickness="  "1"  "  /xGridMinor  AutoSpace-  it 
""True""  *  & 

"Color=" "LightGray" "  Pattern="  "Dash"  "  Thickness^" "1" "  / ><Text  /></AxisxAxis  t 

UnitMajor="  &  _ 

" * " 0 " "  UnitMinor=«"0"«  AutoMajor=« "True" "  AutoMinor=" "True" "  AutoMax=" "True" "  i t 

AutoMin=" "True"  Sc  _ 

"""  Max=""0""  Min=""0""  _onTop=""0""  Compass=""East " "xGridMa jor  AutoSpace-" "True 
""  €olor=" "L"  Sc 


"ightGray""  Pattern=" "Dash" "  Thiekness=" "1" "  /xGridMinor  AutoSpace=” "True" *  Colors 
=  "  "Ligh"  Sc  _ 

"tGray""  Pattern="  "Dash" "  Thickness-""!""  /xText  /></Axis></Axes>  it 

<ChartGroupsCollecti"  &  _ 

"onxChartGroupx3howOutline>True</ShowOutlinexHiLoData>FillFalling=True,  FillTra*  it 

Sc  _ 

"nsparent=True, FullWidth= False , ShowCl ose^True, ShowOpen=True</HiLoDataxChartType>” 

Sc  _ 

"XYPlot</ChartTypexName>Groupl</NamexBar>ClusterOverlap=0,ClusterWidth=50</Bar>"  it 

Sc  _ 

"<Data3erializer  Hole=" "3 . 4028234663852886E+38" «  DefaultSet=" "True" « >  it 

<DataSeriesColle"  &  _ 

nctionxBataSeriesSerializerxSeriesLabel>€omponent  One</SeriesLabelxBataTypes>D"  t 

Sc  _ 

"ouble ; Double ? Double? Double ?Double< /DataTypesxDat aFields> ?  ?  ?  ;</DataFieldsxSymbo"  it 

Sc  _ 

"iStyle  Size="  "8 "  “  Color=« "Black" «  Shape=" "Square" "  /><X  /><Y1  /><Y  /xLineStyle  it 
Color-"  Sc  _ 

" " "Dark Khaki " "  Pattern^ " "None" "  Thickness^ " "1" «  />< Tag  /><Y2  /><Y3  /></ 
DataSeriesSerial"  Sc  _ 

ttizerxDataSeriesSerializerxSeriesLabel>Component  Two</SeriesLabelxBataTypes>Bo" t 

Sc  _ 

"uble ; Double  ? Double  ? Double  ;Double</DataTypesxDataFields>  ;  ;  ;  ;  c/DataFieldsxSymbol "  it 

Sc  _ 

"Style  Size="  "8 "  "  Color="  "Black"  "  Shape=«  "Square"  "  /><X  /xYl  /><Y  /xLineStyle 
Color=««*  Sc  _ 

"DarkMagenta""  Pattern=" "None" "  Thickness= « "1" "  /><Tag  /><Y2  /><Y3  /></ 
DataSeriesSeria"  &  _ 

*lizerx/DataSeriesCollection></DataSerializerxBubble>EncodingMethod-DiaTneter#  Ma" 

Sc  _ 

"ximumSize==20,MiniraumSize=5</BubblexPie>OtherOf  f set-0,  Start=0</PiexPolar>Degree"  it 

Sc  _ 

"s=True,  PiRatioAnnotations-True,  Start=0</PolarxStacked>False</3taekedxRadar>Deg"  t 

Sc  _ 

"rees=True,  Filled=False,  Start  =  0</RadarxVisible>True</Visiblex/ChartGroupxChart"  it 

Sc  _ 

"Groupx3how0utline>True</Show0utlinexHiLoData>FillFalling=True,  FillTransparent=" 

Sc  _ 

"True, FullWidth=False,ShowClose=True, ShowOpen=True</HiLoDataxChartType>XYPlot</e"  it 

Sc  _ 

"hartTypexNarae>Group2</NamexBar>Cluster0verlap=G ,  ClusterWidth=50</BarxDataSeri"  i<f 

Sc  _ 

"alizer  Hole=" "3 . 4028234663852886E+38 " «  /xBubble>EncodingMethod=Diameter ,  it 

MaximumSi"  &  _ 

"ze=20, MinimumSi ze= 5 < /Bubble x Pie >OtherOff  set  =  0 ,  Start=0</PiexPolar>Degrees=True,  *  it 

Sc  _ 

"PiRatioAnnotations=True ,  Start=0</PolarxStacked>False</StackedxRadar>Degrees=Tr  " 

Sc  _ 

"ue, Filled=False ,  Start=0< /RadarxVisible>True</Visiblex/ChartGroupx/ChartGroups" 

Sc  _ 

"Collect  ionx/Chart2DPropBag>" 

Me. char tPCA. Size  =  New  System. Drawing. Size (422,  373} 

Me . chartPCA.Tablndex  =  0 
* 

*  ContextMenuPlot 
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« 

Me .ContextMenuPlot .Menul terns .AddRange (New  System. Windows . Forms . Menultem ( )  {Me. 
ctxCopy,  Me. CtxSaveAs,  Me .Menultem3 ,  Me. ctxPrint,  Me . Menultem6 ,  Me.ctxExit}) 

i 

' ctxCopy 

i 

Me . ctxCopy . Index  =  0 
Me . ctxCopy . Text  =  "&Copy" 

t 

*  ctxSaveAs 

i 

Me .ctxSaveAs . Index  =  1 

Me . ctxSaveAs .Text  =  "Save  & As" 

i 

’Menultem3 

i 

Me . Menul tem3 . Index  =  2 
Me .Menu It em3 .Text  = 

i 

' ctxPrint 

Me . ctxPrint . Index  =  3 

Me . ctxPrint . Text  =  "&Print" 

» 

'Menultem6 

< 

Me . Menul tem6 . Index  «  4 
Me .Menul tem6 . Text  =  " 

*  ctxExit 

t 

Me . ctxExit . Index  -  5 
Me . ctxExit . Text  -  "E&xit" 

i 

'  Plot 

Me . AutoScaleBaseSize  =  New  System. Drawing . Size ( 5 ,  13) 

Me . ClientSize  =  New  System . Drawing . Size (422 ,  373) 

Me . ContextMenu  =  Me . ContextMenuPlot 
Me . Controls .Add (Me . chartPCA) 

Me. Icon  =  CType (resources . GetObj ect ( "$this . Icon" ) ,  System. Drawing. Icon) 

Me. Name  =  "Plot" 

Me . StartPosition  -  System . Windows . Forms . FormStartPosition . CenterParent 
Me. Text  =  "Plot" 

CType (Me . chartPCA,  System. ComponentModel . ISupport Initialize ) .Endlnit () 

Me . ResumeLayout (False) 

End  Sub 

#End  Region 

Private  mySamples  As  Integer 
Private  myVariables  As  Integer 
Private  mylnput_data  As  Array 
Private  mySampleNames  As  Array 

Public  Property  Variables {)  As  Integer 
Get 

Return  myVariables 
End  Get 

Set(ByVal  Value  As  Integer) 
myVariables  =  Value 
End  Set 
End  Property 

Public  Property  Samples ()  As  Integer 
Get 
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Return  mySamples 
End  Get 

Set (ByVal  Value  As  Integer) 
mySamples  =  Value 
End  Set 
End  Property 

Public  Property  Input_data{)  As  Array 
Get 

Return  mylnput_data 
End  Get 

Set {ByVal  Value  As  Array) 
mylnputdata  =  Value 
End  Set 
End  Property 

Public  Property  SaropleNames ()  As  Array 
Get 

Return  mySampleNames 
End  Get 

Set (ByVal  Value  As  Array) 
mySampleNames  »  Value 
End  Set 
End  Property 

Private  Sub  ehartPCA_Load (ByVal  sender  As  System. Object,  ByVal  e  As  System. Event Args) 
Handles  char tPCA. Load 

Dim  chartData  As  Cl .Win. CIChart .ChartDataSeries 

Dim  chartDataXY  As  Cl .Win. CIChart .ChartData 

Dim  chartLabels  As  Cl .Win. CIChart .ChartLabels 

Dim  ehartLabel  As  Label 

Dim  AxisCounter  As  Integer 

Dim  xAxisData (Samples  -  1)  As  Double 

Dim  yAxisData (Samples  -  1)  As  Double 

chart PCA . Style . Border . BorderStyle  =  Cl . Win . CIChart . Borders tyleEnum . Solid 
char tPCA. Style. Border .Thickness  -  1 

For  AxisCounter  =  0  To  Samples  -  1 

xAxisData (AxisCounter)  =  CType (Input_dat a .GetValue (AxisCounter,  0),  Double) 
yAxisData (AxisCounter)  =  CType (Input_dat a . GetValue (AxisCounter ,  1),  Double) 

Next 


char tPCA. Char tGroups (0) .ChartData . SeriesList (0) .X. CopyDataln (xAxisData) 
chart PCA. Chart Groups (0) . ChartData . SeriesList (0) . Y. CopyDataln (yAxisData) 
chart  PCA.  Chart  Area.  AxisX.  Text  =  ControlChars  .  Lf  +  11  Component  One" 
chartPCA.ChartArea.AxisY.Text  =  "Component  Two"  +  ControlChars . Lf  +  11 
chart PCA. Header . Style . Font  =  New  Font ( "Arial " ,  10,  FontStyle . Bold) 


*Add  Lines 

Dim  xLowerBound  As  Integer  = 
Dim  xUpperBound  As  Integer  = 
Dim  xMin  As  Double 
Dim  xMax  As  Double 
Dim  maxlndex  As  Integer  =  0 
Dim  minlndex  As  Integer  =  0 
Dim  yLowerBound  As  Integer  = 
Dim  yUpperBound  As  Integer  = 
Dim  yMin  As  Double 
Dim  yMax  As  Double 
Dim  Counter  As  Integer 


xAxisData .GetLowerBound (0) 
xAxisData .GetUpperBound (0) 


yAxisData .GetLowerBound (0) 
yAxisData .GetUpperBound (0) 


*  Find  maximum  X  value 
xMax  -  xAxisData (0) 

For  Counter  =  xLowerBound  To  xUpperBound 

If  xAxisData (maxlndex)  <  xAxisData (Counter)  Then 
maxlndex  =  Counter 
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xMax  =  xAxisData (maxlndex) 

End  If 

Next 

’Find  minimum  X  value 
xMin  =  xAxisData (0) 

For  Counter  =  xLowerBound  +  1  To  xUpperBound 
If  xMin  >  xAxisData (Counter)  Then 
minlndex  =  Counter 
xMin  =  xAxisData (minlndex) 

End  If 

Next 

' Find  maximum  Y  value 
maxlndex  -  0 

For  Counter  =  yLowerBound  To  yUpperBound 

If  yAxisData (maxlndex)  <  yAxisDat a (Counter)  Then 
maxlndex  =  Counter 
yMax  =  yAxisData (maxlndex) 

End  If 

Next 

’Find  minimum  Y  value 
yMin  =  yAxisData (0) 

For  Counter  =  yLowerBound  +  1  To  yUpperBound 
If  yMin  >  yAxisData (Counter )  Then 
minlndex  =  Counter 
yMin  »  yAxisData (minlndex) 

End  If 

Next 

Dim  xMinMod  As  Integer  =  CType(xMin,  Integer) 

Dim  xMaxMod  As  Integer  =  CType(xMax,  Integer) 

If  xMinMod  >  xMin  Then 

xMinMod  =  xMinMod  -  1 
End  If 

If  xMaxMod  <  xMax  Then 

xMaxMod  -  xMaxMod  +  1 
End  If 

Dim  yMinMod  As  Integer  =  CType(yMin,  Integer) 

Dim  yMaxMod  As  Integer  =  CType(yMax,  Integer) 

If  yMinMod  >  yMin  Then 

yMinMod  =  yMinMod  -  1 
End  If 

If  yMaxMod  <  yMax  Then 

yMaxMod  -  yMaxMod  +  1 
End  If 

xMinMod  =  xMinMod  -  1 

xMaxMod  =  xMaxMod  +  1 

yMinMod  =  yMinMod  -  1 

yMaxMod  -  yMaxMod  +  1 


chartPCA.ChartArea.AxisX.Min  -  xMinMod 
chart PCA. ChartArea .AxisX. Max  =  xMaxMod 
chart PCA. Chart Area. Axis Y. Min  =  yMinMod 
chartPCA. Chart Area. AxisY. Max  =  yMaxMod 

'Enter  data  into  plot 

Dim  group 1  As  Cl . Win. CIChart . ChartGroup  =  chartPCA. ChartGroups (0 ) 
groupl .ChartType  =  Cl . Win . CIChart . Chart2DTypeEnum . XYPlot 
groupl . DrawingOrder  =  0 

Dim  Horizdata  As  Cl .Win. CIChart . ChartData  =  groupl . ChartData 
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Dim  sHoriz  As  New  Cl . Win. CIChart , ChartDataSeries 
Horizdata . SeriesList .Add (sHoriz) 

sHoriz . FitType  =  Cl. Win.CIChart. FitTypeEnum. Line 

sHoriz. SymbolStyle. Shape  -  Cl .Win.CIChart . SymbolShapeEnum. None 

sHoriz . LineStyle .Color  =  Color. Black 

Dim  pfa{)  As  PointF  =  {New  Point F (xMinMod,  O.0F),  New  Point F (xMaxMod,  0.0F)} 
sHoriz . PointData . CopyDataln (pf  a) 

'Enter  data  into  plot 

Dim  group2  As  Cl .Win.CIChart . ChartGroup  =  char tPCA. Char tGroups (1) 
group2 , ChartType  =  Cl .Win.CIChart .Chart 2DTypeEnum.X¥Plot 
group2 . DrawingOrder  =  1 

Dim  Vertiealdata  As  €1. Win.CIChart .ChartData  =  group2 . ChartData 

Dim  sVert  As  New  Cl . Win. CIChart . ChartDataSeries 

Vertiealdata . SeriesList .Add {sVert) 

sVert . FitType  =  Cl .Win.CIChart . FitTypeEmim. Line 

sVert .Symbol Style. Shape  =  Cl .Win.CIChart .Symbol ShapeEnum. None 

sVert .LineStyle. Color  -  Color. Black 

Dim  pfal{)  As  PointF  =  {New  PointF(G.OF,  yMinMod)  ,  New  PointF(0.OF,  yMaxMod) } 

sVert . PointData . CopyDataln {pf al) 

chart PCA. Char tArea.AxisY2 .Visible  =  False 

'Make  box  around  graph 
sVert  -  New  ChartDataSeries 
Vertiealdata . SeriesList .Add (sVert) 

pfal  =  New  PointF {}  {New  PointF (xMaxMod,  yMinMod),  New  PointF (xMaxMod,  yMaxMod)} 
sVert . PointData . CopyDataln (pfal ) 

sVert . SymbolStyle . Shape  =  Cl . Win.CIChart . Symbol ShapeEnum. None 
sVert . LineStyle . Color  =  Color. Black 
sVert. LineStyle. Thickness  =  2 

sHoriz  =  New  ChartDataSeries 
Horizdata . SeriesList .Add (sHoriz) 

pfal  =  New  PointF ()  {New  PointF (xMinMod,  yMaxMod),  New  PointF (xMaxMod,  yMaxMod)} 
sHoriz . PointData .CopyDataln (pfal) 

sHoriz. SymbolStyle. Shape  -  Cl .Win. CIChart .Symbol ShapeEnum. None 
sHoriz .LineStyle . Color  =  Color. Black 
sHoriz. LineStyle. Thickness  =  3 


'Add  Sample  Names  to  Labels  Collection 

Dim  cLabs  As  ChartLabels  =  chartPCA. ChartLabels 

cLabs . Def aultLabelStyle . BackColor  =  Color . Transparent 

cLabs .DefaultLabelStyle .Border .BorderStyle  =  BorderStyleEnum. Empty 

cLabs. Def aultLabelStyle. Border .Thickness  -  0 

Dim  MyValue (SampleNames . GetUpperBound (0) )  As  Integer 

For  Counter  =  0  To  SampleNames .GetUpperBound (0) 

'Make  a  random  number  for  the  direction  and  distance  offset. 

Randomize ()  *  Initialize  random-number  generator. 

MyValue (Counter)  =  CInt(Int((10  *  Rnd())  +1))  '  Generate  random  value  between^ 

1  and  6. 

Dim  cLab  As  Cl .Win. CIChart . Label  =  cLabs . LabelsCollect ion . AddNewLabel ( ) 

cLab.Text  =  SampleNames .GetValue (Counter) .ToString 

cLab .AttachMethod  -  AttachMethodEnum.Datalndex 

cLab. At tachMethodData .Group Index  =  0 

cLab .AttachMethodData . Serieslndex  -  0 

cLab. At tachMethodData . Point Index  =  Counter 

cLab. Connected  -  True 

cLab. Offset  =  (MyValue (Counter)  *  4) 

cLab. Visible  =  True 

cLab. Compass  -  LabelCompassEnum. Orthogonal 

* cLab. Compass  =  CType (MyValue (Counter) ,  LabelCompassEnum) 

*If  xAxisDat a (Counter)  >  0  Then 
*  cLab. Compass  =  LabelCompassEnum. Northwest 
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'  Else 

'  cLab . Compass  =  LabelCompassEnura.NorthEast 
•End  If 

Next 


End  Sub 

Private  Sub  mnuClose_Click (ByVal  sender  As  System. Object #  ByVal  e  As  System. EventArgs) 
Me. Close () 

End  Sub 

Private  Sub  ctxSaveAs_Click (ByVal  sender  As  System. Object #  ByVal  e  As  System. 

EventArgs)  Handles  ctxSaveAs . Click 

Dim  lastFilterlndex  As  Integer  =  1 

Dim  myPlot  As  Plot  =  Me 

Dim  sfg  As  New  SaveFileDialog 

sfg. Filter  =  “Metafiles  ( * . emf ) | * . emf | "  +  "Bmp  files  ( * .bmp) | * .bmp | «  +  "Gif  files 
(*.gif) |*. gif | "  +  "Jpeg  files  (*. jpg; *- jpeg) | *. jpg; *. jpeg | «  +  "Png  files  ( * .png) | * .png* 
|"  +  "All  graphic  files  (*. emf bmp; * .gif jpg; *. jpeg ?* .png) | *. emf ;* .bmp? *. gif jpg* 
;+. jpeg;*. png" 

sfg. Filterlndex  =  lastFilterlndex 
sfg. Overwrite Prompt  =  True 
sfg. CheckPathExists  -  True 
sfg. RestoreDirectory  =  False 
sfg. ValidateNames  =  True 

If  sfg. ShowDialog ()  =  DialogResult . OK  Then 
Dim  fn  As  String  =  sfg.FileName 
Dim  indext  As  Integer  =  fn. LastlndexOf ( ” . Hc) 

If  indext  <  0  Then 

indext  =  fn. Length  +  1 
fn  +=  " . emf" 

Else 

indext  +=  1 
End  If 

Dim  ext  As  String  =  fn . Substring ( indext ) 

Dim  imgfmt  As  ImageFormat  =  Nothing 

Select  Case  ext 
Case  "emf" 

imgfmt  =  ImageFormat . Emf 

myPlot . chartPCA. Save Image ( f  n,  imgfmt) 

Case  "bmp" 

imgfmt  =  ImageFormat . Bmp 
Case  "gif" 

imgfmt  =  ImageFormat . Gif 

Case  "jpeg",  "jpg" 

imgfmt  «  ImageFormat . Jpeg 

Case  "png" 

imgfmt  =  ImageFormat . Png 

Case  Else 
Return 
End  Select 

lastFilterlndex  =  sfg . Filterlndex 

If  Not  imgfmt . Equals ( ImageFormat . Emf )  Then 

Dim  img  As  Image  -  myPlot . chart PCA . Getlmage  ( ) 
img. Save (fn,  imgfmt) 
img. Dispose ( ) 
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End  If 
End  If 

sfg, Dispose {) 

End  Sub 

Private  Sub  ctxCopy_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System.EventArgs)  if 
Handles  ctxCopy . Click 

Dim  myPlot  As  Plot  =  Me 

myPlot . char tPCA. Save Image (ImageFormat . Emf } 

End  Sub 

Private  Sub  ctxExit_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System.EventArgs) 
Handles  ctxExit .Click 
Me  .Close (} 

End  Sub 

Private  Sub  chart PCA_Click{ ByVal  sender  As  Object,  ByVal  e  As  System.EventArgs)  if 

Handles  char tPCA. Click 
Me. Activate () 

End  Sub 

Private  Sub  ctxPrint_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System.EventArgs)  if 
Handles  ctxPrint . Click 

Dim  doc  As  New  CIPrintDocument 
Doc2D_JPCA (doc ,  New  GenerateEventArgs) 

Dim  aprev  As  New  Final_Report 

AddHandler  doc.GenerateDocument,  New  GenerateEventHandler (AddressOf  Doc2D_PCA) 
aprev. Cl Print Previewl .Document  =  doc 
aprev. S ho wDialog ( ) 

ReraoveHandler  doc.GenerateDocument,  New  GenerateEventHandler (AddressOf  Doc2D_PCA) 
aprev. Dispose ( ) 

*  barchart . chartBar . PrintChart ( PrintScaleEnum . ScaleToFit ) 

End  Sub 

Private  Sub  Doc2D_PCA (ByVal  doc  As  CIPrintDocument,  ByVal  e  As  GenerateEventArgs) 

Dim  ClChartlRaw  As  Plot  =  Me 

Dim  ClChartl  As  Cl.Win.ClChart .CIChart  =  ClChartlRaw. chart PCA 
With  doc 

.DefaultUnit  =  UnitTypeEnum.Mm 
. StartDoc ( ) 

* .RenderBlockText ("Chart",  50,  50,  Nothing) 

Dim  ww  As  Double  =  (CType ( .BodyAreaSize . Width,  Double))  *  0.9 
.RenderBlockClPrintable (ClChartl ,  (. BodyAreaSize .Width  *  0.9)) 

.CanChangePageMetrics ( ) 

. RenderBlockGraphicsBegin ( ) 

. EndDoc ( ) 

End  With 
End  Sub 

End  Class 
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Public  Class  Properties 

Inherits  System . Windows . Forms . Form 

#Region  "  Windows  Form  Designer  generated  code  w 

Public  Sub  New() 

MyBase.NewO 

•This  call  is  required  by  the  Windows  Form  Designer . 

InitializeComponent ( ) 

*  Add  any  initialization  after  the  Init ializeComponent ( )  call 
End  Sub 

'Form  overrides  dispose  to  clean  up  the  component  list. 

Protected  Overloads  Overrides  Sub  Dispose (ByVal  disposing  As  Boolean) 

If  disposing  Then 

If  Not  (components  Is  Nothing)  Then 
components . Dispose ( ) 

End  If 
End  If 

MyBase . Dispose (disposing) 

End  Sub 

'Required  by  the  Windows  Form  Designer 

Private  components  As  System. ComponentModel . IContainer 

'NOTE:  The  following  procedure  is  required  by  the  Windows  Form  Designer 
'It  can  be  modified  using  the  Windows  Form  Designer. 

'Do  not  modify  it  using  the  code  editor. 

Friend  WithEvents  Labell  As  System .Windows . Forms . Label 
Friend  WithEvents  btnOK  As  System . Windows . Forms . Button 

<System . Diagnostics . DebuggerStepThrough ( ) >  Private  Sub  InitializeComponent ( ) 

Dim  resources  As  System. Resources . ResourceManager  =  New  System. Resources .  * 

ResourceManager (GetType (Properties) ) 

Me. Labell  =  New  System. Windows . Forms . Label 
Me. btnOK  =  New  System . Windows . Forms . Button 
Me . SuspendLayout ( ) 

i 

' Labell 

i 

Me. Labell . Font  =  New  System . Drawing . Font ( "Microsoft  Sans  Serif  ",  10.0!,  System. 
Drawing. FontStyle .Regular,  System . Drawing . GraphicsUnit . Point ,  CType(0,  Byte)) 

Me. Labell . Location  =  New  System. Drawing . Point ( 16 ,  40) 

Me . Labell .Name  =  "Labell" 

Me . Labell . Size  =  New  System . Drawing . Size (264  ,  160) 

Me . Labell .Tablndex  =  0 

Me . Labell .Text  =  "There  are  currently  no  user  settable  properties  for  this 
application" 

t 

' btnOK 

Me . btnOK . DialogResult  =  System . Windows . Forms . DialogResult . Cancel 
Me. btnOK. Location  =  New  System . Drawing . Point ( 105 ,  208) 

Me .btnOK. Name  =  "btnOK" 

Me. btnOK. Tablndex  =  1 
Me. btnOK. Text  =  "&OK" 

i 

' Properties 

i 

Me . AutoScaleBaseSize  =  New  System. Drawing . Size (5  ,  13) 

Me . ClientSize  =  New  System. Drawing. Size (292 ,  273) 

Me . ControlBox  =  False 
Me . Controls . Add (Me . btnOK) 

Me . Controls .Add (Me . Labell) 

Me  ."Icon  =  CType  (resources  .  GetObj  ect  (  "$this  .  Icon"  )  ,  System.  Drawing.  Icon) 
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Me .MaximizeBox  -  False 
Me. Name  =  8 Properties” 

Me. Text  =  n Properties” 

Me . Resume Layout { False } 

End  Sub 

#End  Region 

Private  Sub  btnOK_Click (ByVal  sender  As  System. Ob j ect f  ByVal  e  As  System.EventArgs) 
Handles  btnOK. Click 
Me. Close {) 

End  Sub 
End  Class 
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Imports  Cl . Win . ClFlexGrid 
Imports  System. Text . RegularExpressions 

Public  Class  Select_Samples 

Inherits  System . Windows . Forms . Form 

#Region  "  Windows  Form  Designer  generated  code  " 

Public  Sub  New() 

MyBase.NewO 

'This  call  is  required  by  the  Windows  Form  Designer. 

InitializeComponent { ) 

'Add  any  initialization  after  the  InitializeComponent  ( )  call- 
End  Sub 

'Form  overrides  dispose  to  clean  up  the  component  list. 

Protected  Overloads  Overrides  Sub  Dispose (ByVal  disposing  As  Boolean) 

If  disposing  Then 

If  Not  (components  Is  Nothing)  Then 
components . Dispose ( ) 

End  If 
End  If 

MyBase . Dispose (disposing) 

End  Sub 

'Required  by  the  Windows  Form  Designer 

Private  components  As  System. Component Model . IContainer 

'NOTE:  The  following  procedure  is  required  by  the  Windows  Form  Designer 
'It  can  be  modified  using  the  Windows  Form  Designer. 

'Do  not  modify  it  using  the  code  editor. 

Friend  WithEvents  btnSelectAll  As  System. Windows . Forms . Button 
Friend  WithEvents  btnSelectNone  As  System. Windows . Forms . Button 
Friend  WithEvents  btnSelectSamplesOK  As  System . Windows . Forms . Button 
Friend  WithEvents  btnSelectSamplesCancel  As  System. Windows . Forms .Button 
Friend  WithEvents  SelectSamples  As  Cl . Win. ClFlexGrid. ClFlexGrid 
<System. Diagnostics . DebuggerStepThrough ( ) >  Private  Sub  InitializeComponent ( ) 

Dim  resources  As  System. Resources . ResourceManager  =  New  System. Resources .  X 

ResourceManager (GetType (Select_Samples ) ) 

Me . SelectSamples  =  New  Cl .Win . ClFlexGrid . ClFlexGrid 
Me . btnSelectAll  =  New  System . Windows . Forms . Button 
Me . btnSelectNone  =  New  System . Windows . Forms . Button 
Me .btnSelectSamplesOK  =  New  System. Windows . Forms . Button 
Me .btnSelectSamplesCancel  =  New  System. Windows . Forms . Button 

CType (Me .SelectSamples ,  System . ComponentModel . ISupport Initialize) .Beginlnit ( ) 

Me . SuspendLayout ( ) 

• 

' SelectSamples 

i 

Me . SelectSamples . AllowSor ting  =  Cl .Win .ClFlexGrid . AllowSor tingEnum. None 
Me. SelectSamples . BackColor  =  System. Drawing. SystemColors .Window 

Me . SelectSamples . Columnlnfo  =  "3 , 0 , 0 , 0 , 0 , 85 , Columns : 0 { Visible : False ;} "  &  Microsoft*' 
. VisualBasic . ChrW (9)  &  " 1 {Width: 37 ; AllowSort ing : False ; AllowDraggin"  &  _ 

"g : False ;AllowResizing: False /DataType: System. Boolean; ImageAlign: CenterCenter ? } "  &  * 
Microsoft . VisualBasic . ChrW ( 9 )  &  "2{"  &  _ 

"Width : 175 ; Caption : " "Sample" " ; AllowDragging : False ; AllowResizing : False ; AllowMerging 

:  "  & 

"True ; AllowEdit ing : False ; TextAl ign : Lef tCenter ; TextAl ignFixed : CenterCenter ; } "  &  * 

Microsoft .VisualBasic . ChrW (9) 

Me . SelectSamples . ForeColor  =  System. Drawing . SystemColors . WindowText 
Me . SelectSamples . Location  =  New  System . Drawing . Point ( 16 ,  16) 

Me . SelectSamples .Name  =  "SelectSamples" 

Me . SelectSamples . Rows . Count  =  750 

Me . SelectSamples . Size  =  New  System. Drawing . Size (232 ,  440) 
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Me. SelectSamples , Styles  =  New  Cl .Win.ClFlexGrid,CellStyleCollection{"Fixed 
{BackColor; Control; ForeColor rControlText ; Border : Flat , 1, ControlDark, Both; }"  &  Microsoft 
.VisualBasie. ChrW (9)  &  "Hi"  &  _ 

"ghlight{ BackColor ; Highlight ; ForeColor :HighlightText ;} "  &  Microsoft .VisualBasie. 
ChrW { 9 }  &  "Search {BackColor: Highlight"  &  _ 

";ForeColor : Highlight Text ? }"  &  Microsoft .VisualBasie. ChrW (9)  &  "Frozen {BackColor; 
Beige;}8  &  Microsoft .VisualBasie . ChrW {9}  &  * EmptyArea{ Backed or :AppWorks"  &  _ 

"pace ; Border ; Flat , 1, ControlDarkDark, Both; } "  &  Microsoft. VisualBasie. ChrW (9)  & 

8 GrandTotal {BackColor ; Black; ForeColor :W«  &  _ 

"hite; } "  &  Microsoft. VisualBasie. ChrW (9)  &  "SubtotalO { BackColor ;ControlDarkDark;  y? 
ForeColor ; Whi te; } "  &  Microsoft .VisualBasie .ChrW (9)  &  "Subtotall {BackColor"  &  _ 

ControlDarkDark; ForeColor : White "  &  Microsoft .VisualBasie . ChrW (9)  &  "Subtotal2  yf 
{BackColor; ControlDarkDark; ForeColor"  &  _ 

":White;}M  &  Microsoft .VisualBasie .ChrW {9}  &  "Subtotal! {BackColor ; ControlDarkDark ; 
ForeColor ; White ;}  8  &  Microsof  t . VisualBasie  . ChrW  (9 }  &  "Subtotal4 {Backed"  &  _ 

"or : ControlDarkDark; ForeColor : White "  &  Microsoft. VisualBasie. ChrW (9)  & 

"Subtotals {BackColor ; ControlDarkDark ; ForeCol 8  &  __ 

"or ; White; } 8  &  Microsof t .VisualBasie . ChrW {9} } 

Me. SelectSamples. Tablndex  =  0 

i 

’btnSelectAll 

* 

Me. btnSelectAll .Location  =  New  System. Drawing. Point {264 ,  32) 

Me.btnSelectAll .Name  =  "btnSelectAll" 

Me . btnSelectAll .Tablndex  =  1 
Me.btnSelectAll .Text  =  "Select  &A11" 

i 

*  btnSelectNone 

i 

Me . btnSelectNone . Location  =  New  Sys tem. Drawing. Point {264 ,  88) 

Me. btnSelectNone .Name  =  "btnSelectNone" 

Me. btnSelectNone .Tablndex  -  2 
Me .btnSelectNone . Text  -  "Select  &None" 

% 

*  btnSeleetSamplesOK 
1 

Me. btnSeleetSamplesOK. DialogResult  =  System. Windows . Forms .DialogResult .OK 
Me. btnSeleetSamplesOK. Location  =  New  System. Drawing .Point (264 ,  360) 

Me. btnSeleetSamplesOK. Name  =  "btnSeleetSamplesOK" 

Me .btnSeleetSamplesOK. Tablndex  -  3 
Me .btnSeleetSamplesOK. Text  =  "&OK" 

i 

*  btnSelectSamplesCancel 

* 

Me. btnSelectSamplesCancel .DialogResult  =  System. Windows. Forms .DialogResult -Cancel 
Me . btnSelectSamplesCancel . Location  =  New  System. Drawing. Point {264 ,  416) 

Me .btnSelectSamplesCancel .Name  -  "btnSelectSamplesCancel" 

Me. btnSelectSamplesCancel .Tablndex  -  4 
Me. btnSelectSamplesCancel  .Text  =  "^Cancel" 

» 

*  SelectSamples 

t 

Me. AcceptButton  =  Me . btnSeleetSamplesOK 

Me . AutoScaleBaseSize  =  New  System. Drawing . Size  (5 ,  13) 

Me. CancelButton  =  Me . btnSelectSamplesCancel 

Me . ClientSize  -  New  System. Drawing. Size (360,  469) 

Me. ControlBox  =  False 

Me . Controls . Add (Me . btnSelectSamplesCancel ) 

Me . Controls . Add (Me . btnSeleetSamplesOK) 

Me . Controls . Add (Me . btnSelectNone ) 

Me . Controls . Add (Me . btnSelectAll) 

Me . Cont  r o 1 s . Add ( Me . S e 1 e c  t S ample  s ) 

Me. FormBorderStyle  =  System. Windows . Forms . FormBorder Style . FixedDialog 
Me. Icon  =  CType (resources . GetObj ect ( "$this . Icon" } ,  System. Drawing. Icon) 
Me.MaximizeBox  =  False 
Me  .MinimizeBox  -  False 
Me. Name  =  "Select_Samples" 
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Me . Start Posit ion  =  System . Windows . Forms . Forms tartPos it ion . Center Parent 
Me.  Text  =  "SelectSamples" 

CType (Me . SelectSamples ,  System. ComponentModel . ISupportlnitialize) .Endlnit () 
Me . ResumeLayout (False) 

End  Sub 

#End  Region 


Private  mSampleChoice  As  String 
Public  Property  SampleChoice ( )  As  String 
Get 

Return  CType (mSampleChoice ,  String) 
End  Get 

Set (ByVal  Value  As  String) 
mSampleChoice  =  Value 
End  Set 
End  Property 


Private  mSamples  As  String 
Public  Property  samples {)  As  String 
Get 

Return  CType (mSamples ,  String) 
End  Get 

Set (ByVal  Value  As  String) 
mSamples  =  Value 
End  Set 
End  Property 


Private  Sub  SelectSamples_Load (ByVal  sender  As  System . Ob j ect ,  ByVal  e  As  System. 
EventArgs)  Handles  MyBase.Load 

Dim  sampleNames Cell Range  As  CellRange 

sampleNamesCellRange  =  Me . SelectSamples . GetCellRange (1 ,  2,  CType (Me . SelectSamples . * 
Rows. Count,  Integer)  -  1,  2) 

sampleNamesCellRange . Clip  =  samples 

SelectSamples . Select (SelectSamples .Row,  SelectSamples . Col) 

Dim  i,  j  As  Integer 

j  =  1 

For  i  =  1  To  CType (Me . SelectSamples . Rows . Count ,  Integer)  -  1 
If  Not  SelectSamples  (i ,  2)  Is  Nothing  Then 

j  -  j  +  1 

End  If 


Next 

sampleNamesCellRange  =  Me . SelectSamples . GetCellRange (1 ,  1,  j  -  1,  2) 
SampleChoice  =  sampleNamesCellRange . Clip 


End  Sub 

Private  Sub  btnSelectAll_Click (ByVal  sender  As  System. Ob j ect ,  ByVal  e  As  System.  * 

EventArgs)  Handles  btnSelectAll . Click 

Dim  i,  j  As  Integer 

j  =  1 

For  i  =  1  To  CType (Me . SelectSamples . Rows . Count ,  Integer)  -  1 
If  Not  SelectSamples (i,  2)  Is  Nothing  Then 

j  =  j  +  1 

End  If 


Next 
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For  i  *  1  To  j  -  1 

SelectSamples (i ,  1)  =  True 

Next 
End  Sub 

Private  Sub  btnSelectNone_Click (ByVal  sender  As  System. Ob j ect ,  ByVal  e  As  System. 
EventArgs)  Handles  btnSelectNone. Click 

Dim  i  As  Integer 

For  i  =  1  To  CType {Me .Select Samples .Rows .Count ,  Integer)  -  1 
SelectSamples (i,  1)  =  False 

Next 
End  Sub 

Private  Sub  btnSelect3amplesOK_Click (ByVal  sender  As  System, Object ,  ByVal  e  As  System.^ 
EventArgs)  Handles  btnSelectSamplesOK. Click 

Dim  sampleNamesCellRange  As  CellRange 

sampleNamesCellRange  =  Me . SelectSamples .GetCellRange (1,  2,  CType (Me .SelectSamples ,  \l 
Rows. Count,  Integer)  -  1,  2) 

sampleNamesCellRange. Clip  =  samples 

SelectSamples. Select (SelectSamples .Row,  SelectSamples . Col) 

Dim  i,  j  As  Integer 

5  =  1 

For  i  =  1  To  CType (Me .SelectSamples . Rows .Count ,  Integer)  -  1 
If  Not  SelectSamples (i,  2)  Is  Nothing  Then 

5  =  5  +  1 

End  If 


Next 

sampleNamesCellRange  =  Me, SelectSamples, GetCel iRange (1,  1,  j  -  1,  2) 
SampleChoice  =  sampleNamesCellRange . Clip 


End  Sub 
End  Class 
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Imports  Cl . CIPrintDocument 

Public  Class  Text_Output 

Inherits  System. Windows . Forms . Form 
Private  mylnputText  As  String 
Private  mylnputVariances  As  Array 
Private  myInputT2  As  Array 
Private  mylnputpcs  As  Array 
Private  mylnputnewdata  As  Array 
Private  mylnputManovap  As  Array 
Private  mylnputManovad  As  Array 
Private  mylnputManovastats  As  Array 
Private  mylnputpdist  As  Array 
Private  mylnput linkage  As  Array 
Private  myString  As  String 

Public  Readonly  Property  StringContents ( )  As  String 
Get 

Return  myString 
End  Get 
End  Property 


Public  Property  InputTextO  As  String 
Get 

Return  mylnputText 
End  Get 

Set (ByVal  Value  As  String) 
mylnputText  =  Value 
End  Set 
End  Property 

Public  Property  InputVar iances { )  As  Array 
Get 

Return  mylnputVariances 
End  Get 

Set (ByVal  Value  As  Array) 

mylnputVariances  =  Value 
End  Set 
End  Property 

Public  Property  InputT2()  As  Array 
Get 

Return  myInputT2 
End  Get 

Set (ByVal  Value  As  Array) 
myInputT2  =  Value 
End  Set 
End  Property 

Public  Property  InputpcsO  As  Array 
Get 

Return  mylnputpcs 
End  Get 

Set (ByVal  Value  As  Array) 
mylnputpcs  =  Value 
End  Set 
End  Property 

Public  Property  Inputnewdata  ( )  As  Array 
Get 

Return  mylnputnewdata 
End  Get 

Set (ByVal  Value  As  Array) 
mylnputnewdata  -  Value 
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End  Set 
End  Property 

Public  Property  InputManovap ()  As  Array 
Get 

Return  my InputManovap 
End  Get 

Set (ByVal  Value  As  Array) 
my  InputManovap  =  Value 
End  Set 
End  Property 

Public  Property  InputManovad { )  As  Array 
Get 

Return  mylnputManovad 
End  Get 

Set {ByVal  Value  As  Array) 
mylnputManovad  =  Value 
End  Set 
End  Property 

Public  Property  InputManovastats ( )  As  Array 
Get 

Return  my InputManovastats 
End  Get 

Set {ByVal  Value  As  Array) 

mylnputManovastats  =  Value 
End  Set 
End  Property 

Public  Property  Inputpdist {)  As  Array 
Get 

Return  mylnputpdist 
End  Get 

Set (ByVal  Value  As  Array) 
mylnputpdist  -  Value 
End  Set 
End  Property 

Public  Property  Input 1 inkage ( )  As  Array 
Get 

Return  mylnput linkage 
End  Get 

Set {ByVal  Value  As  Array) 
mylnput linkage  =  Value 
End  Set 
End  Property 


#Region  "  Windows  Form  Designer  generated  code  " 

Public  Sub  New{) 

MyBase .New( ) 

‘This  call  is  required  by  the  Windows  Form  Designer. 

Initial izeComponent {) 

*Add  any  initialization  after  the  InitializeComponent ( )  call 
End  Sub 

‘Form  overrides  dispose  to  clean  up  the  component  list. 

Protected  Overloads  Overrides  Sub  Dispose (ByVal  disposing  As  Boolean) 
If  disposing  Then 

If  Not  (components  Is  Nothing)  Then 
components . Dispose ( ) 

End  If 
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End  If 

MyBase . Dispose (disposing) 

End  Sub 

•Required  by  the  Windows  Form  Designer 

Private  components  As  System. ComponentModel . IContainer 

•NOTE:  The  following  procedure  is  required  by  the  Windows  Form  Designer 
’It  can  be  modified  using  the  Windows  Form  Designer. 

•Do  not  modify  it  using  the  code  editor. 

Friend  WithEvents  dataReport  As  System .Windows . Forms . RichTextBox 
Friend  WithEvents  ContextMenuTextOutput  As  System. Windows . Forms . ContextMenu 
Friend  WithEvents  ctxCopy  As  System. Windows . Forms . Menultem 
Friend  WithEvents  ctxSaveAs  As  System. Windows . Forms . Menultem 
Friend  WithEvents  Menultem3  As  System. Windows . Forms .Menultem 
Friend  WithEvents  ctxPrint  As  System. Windows . Forms .Menultem 
Friend  WithEvents  Menultem5  As  System. Windows . Forms . Menultem 
Friend  WithEvents  ctxExit  As  System. Windows . Forms .Menultem 
Friend  WithEvents  TextDoc  As  Cl . CIPrintDocument . CIPrintDocument 
<System. Diagnostics . Debugger StepThrough ( ) >  Private  Sub  Initial izeComponent ( ) 

Dim  resources  As  System . Resources . ResourceManager  =  New  System. Resources . 
ResourceManager (GetType (Text_Output ) ) 

Me . dataReport  =  New  System. Windows . Forms . RichTextBox 

Me .ContextMenuTextOutput  -  New  System .Windows . Forms . ContextMenu 

Me. ctxCopy  =  New  System. Windows . Forms .Menultem 

Me. ctxSaveAs  =  New  System . Windows . Forms . Menultem 

Me.MenuItem3  =  New  System . Windows . Forms . Menultem 

Me. ctxPrint  =  New  System . Windows . Forms . Menultem 

Me.MenuItem5  =  New  System . Windows . Forms . Menultem 

Me. ctxExit  *  New  System. Windows . Forms . Menultem 

Me. TextDoc  =  New  Cl . CIPrintDocument . CIPrintDocument 

Me . SuspendLayout ( ) 

< 

*  dataReport 

l 

Me . dataReport . ContextMenu  =  Me . ContextMenuTextOutput 
Me . dataReport .Dock  =  System. Windows . Forms . DockStyle . Fill 

Me .dataReport .Font  =  New  System . Drawing . Font ( "Times  New  Roman",  12.0!,  System.  * 
Drawing. FontStyle .Regular,  System. Drawing . GraphicsUnit . Point ,  CType(0,  Byte)) 

Me . dataReport . Location  =  New  System. Drawing . Point ( 0 ,  0) 

Me . dataReport . Name  =  "dataReport” 

Me. dataReport . Size  =  New  System. Drawing . Size (552 ,  533) 

Me . dataReport .Tablndex  =  0 
Me . dataReport . Text  =  ” ” 

'ContextMenuTextOutput 

i 

Me .ContextMenuTextOutput .Menul terns .AddRange (New  System. Windows . Forms . Menultem ( )  \t 
{Me. ctxCopy,  Me . CtxSaveAs ,  Me . Menultem3 ,  Me. ctxPrint,  Me . Menultem5 ,  Me. ctxExit}) 

' ctxCopy 

i 

Me. ctxCopy. Index  =  0 
Me . ctxCopy .Text  =  " &Copy" 

i 

' ctxSaveAs 

i 

Me . ctxSaveAs . Index  =  1 

Me . ctxSaveAs . Text  =  "Save  &As" 

i 

• Menultem3 

I 

Me. Menultem3 . Index  =  2 
Me . Menultem3 . Text  = 

I 

*  ctxPrint 
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Me * ctxPrint . Index  =  3 
Me .ctxPrint .Text  -  ”&Print” 

» 

*  Menu ItemS 

i 

Me. Menul t em5 . Index  =  4 
Me .  Menul temS .  Text  =  *  -  " 

« 

1 ctxExit 

* 

Me. ctxExit . Index  =  5 
Me.  ctxExit -Text  -  "E&xit” 

< 

•Text Doc 

i 

Me. TextDoc. ClDPageSet tings  =  M color : False; landscape: False? margins : 100, 100, 100,100; 
papersize ; 850, 1100, TABlAHQAdA”  &  _ 

"BlAHIA” 

Me.  TextDoc.  ColumnSpacingStr  =  “O.Sin” 

Me .TextDoc . ColumnSpaeingUnit .DefaultType  =  True 
Me. TextDoc. ColumnSpaeingUnit .UnitValue  =  ”0.5 in” 

Me .TextDoc. DefaultUnit  =  Cl .ClPrintDocument .UnitTypeEnum. Inch 
Me . TextDoc , DocumentName  =  ” B 
* 

1 Text_Output 

i 

Me.AutoScaleBaseSize  =  New  System. Drawing. Size (5 ,  13} 

Me.ClientSize  -  New  System.Drawing.Size (552,  533} 

Me . ContextMenu  -  Me . ContextMenuTextOutput 
Me . Controls . Add (Me . dataReport ) 

Me. Icon  =  CType (resources .GetObject { ”$this . Icon” ) ,  System. Dr awing. Icon) 

Me. Name  =  "Text_Output " 

Me. Text  -  ”Text_Output” 

Me . ResumeLayout (False) 

End  Sub 

#End  Region 


Private  Sub  ctxExit_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System. Event Args) 
Handles  ctxExit .Click 
Me .Close ( ) 

End  Sub 

Private  Sub  Text_Output_Click (ByVal  sender  As  Object,  ByVal  e  As  System. Event Args) 
Handles  MyBase. Click 
Me .Activate () 

End  Sub 

Private  Sub  Text_Output_Closed (ByVal  sender  As  Object,  ByVal  e  As  System. Event Args)  it 
Handles  MyBase . Closed 
Me . Inval idate ( } 

Me . Finalize ( } 

End  Sub 

Private  Sub  ctxCopy_C lick (ByVal  sender  As  System. Object ,  ByVal  e  As  System. Event Args) 
Handles  ctxCopy. Click 

Dim  Selection  As  String  -  Me . dataReport . SelectedText 
Clipboard. SetDataOb j ect (Selection) 

End  Sub 

Private  Sub  ctxSaveAs_Click (ByVal  sender  As  System.Object ,  ByVal  e  As  System. 

EventArgs)  Handles  ctxSaveAs . Click 

Dim  TextOutput  As  Text_Output  -  Me 
Dim  saveFileDlg  As  New  SaveFileDialog 
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saveFileDlg. Filter  =  "Text  files  { * . txt ) | * . txt | All  files  (*.*))*.*« 
saveFileDlg . Filterlndex  -  1 

saveFileDlg. FileName  =  saveFileDlg . FileName 
If  saveFileDlg. ShowDialog ( )  =  DialogResult . OK  Then 

TextOutput . dataReport .SaveFile (saveFileDlg. FileName) 

End  If 

End  Sub 


Private  Sub  dataReport_VisibleChanged (ByVal  sender  As  Object,  ByVal  e  As  System. 

Event Args)  Handles  dataReport . VisibleChanged 
Me .Activate ( ) 

End  Sub 

Private  Sub  dataReport_GotFocus (ByVal  sender  As  Object,  ByVal  e  As  System. EventArgs) 
Handles  dataReport . GotFocus 
Me. Activate ( ) 

End  Sub 

Private  Sub  ctxPrint_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System. EventArgs) 
Handles  ctxPrint . Click 

Dim  text  As  String  =  Me . InputText . ToString 

Dim  TextOutput  As  Text_Output  =  CType (Me . ActiveMdiChild,  Text_Output) 

Dim  s  As  Cl . CIPrintDocument . ClDocStyle 
Dim  doc  As  New  CIPrintDocument 
With  Me.TextDoc 

.Style. Font  =  New  Font ("Times  New  Roman",  12,  FontStyle . Regular) 

With  .PageHeader 

1 .RenderText . Style .TextAlignHorz  =  Cl . CIPrintDocument . AlignHorzEnum. Right 
' . RenderText . Text  =  "Header  -  Page  [@@PageNo@@]  of  [@@PageCount@@] “ 

.Height  =  0 
End  With 

With  .PageFooter 

. RenderText . Style . TextAl ignHor z  =  Cl . CIPrintDocument . Al ignHorzEnum . Right 
. RenderText . S tyl e . TextAl ignVert  =  Cl . CIPrintDocument . Al ignVer t Enum . Bottom 
.RenderText .Text  =  "Page  [@@PageNo@@]  of  [@@PageCount@@] " 

End  With 
. StartDoc ( ) 

. Style . Text Color  =  Color. Black 

1 .Style. TextAlignHorz  =  Cl . CIPrintDocument .AlignHorzEnum .Justify 
. RenderBlockText (text) 

.Style. TextAlignHorz  »  Cl . CIPrintDocument .AlignHorzEnum. Left 
. EndDoc ( ) 

End  With 

Dim  aprev  As  New  Final_Report 
aprev. CIPrintPreviewl .Document  =  Me.TextDoc 
aprev. ShowDialog ( ) 
aprev . Dispose ( ) 


End  Sub 
End  Class 
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Imports  Cl -Win. ClFlexGrid 

Public  Class  Variable_Names 

Inherits  System . Windows . Forms . Form 

#Region  *  Windows  Form  Designer  generated  code  * 

Public  Sub  New{) 

MyBase , New ( } 

♦This  call  is  required  by  the  Windows  Form  Designer. 

InitializeComponent { ) 

♦Add  any  initialization  after  the  InitializeComponent ()  call 
End  Sub 

♦Form  overrides  dispose  to  clean  up  the  component  list. 

Protected  Overloads  Overrides  Sub  Dispose (ByVal  disposing  As  Boolean) 

If  disposing  Then 

If  Not  (components  Is  Nothing)  Then 
components , Dispose ( ) 

End  If 
End  If 

MyBase. Dispose (disposing) 

End  Sub 

♦Required  by  the  Windows  Form  Designer 

Private  components  As  System. Component Model . IContainer 

♦NOTE:  The  following  procedure  is  required  by  the  Windows  Form  Designer 
*It  can  be  modified  using  the  Windows  Form  Designer. 

*  Do  not  modify  it  using  the  code  editor. 

Friend  WithEvents  VariableNames  As  Cl .Win. ClFlexGrid. ClFlexGrid 
Friend  WithEvents  btnOpenCompoundList  As  System. Windows .Forms .Button 
Friend  WithEvents  btnSaveCompoundList  As  System. Windows . Forms . Button 
Friend  WithEvents  btnNameVariablesOK  As  Sys tern. Windows. Forms . Button 
Friend  WithEvents  Labell  As  Sys tem. Windows . Forms . Label 
Friend  WithEvents  GroupBoxl  As  System. Windows . Forms .GroupBox 
Friend  WithEvents  btnNameVariablesCancel  As  System. Windows . Forms .Button 
Friend  WithEvents  ContextMenul  As  System. Windows . Forms . ContextMenu 
Friend  WithEvents  Menulteml  As  System. Windows . Forms .Menultem 
Friend  WithEvents  Menultem2  As  System. Windows . Forms .Menultem 
Friend  WithEvents  Menultem3  As  System. Windows . Forms .Menultem 
Friend  WithEvents  Menultem4  As  System. Windows . Forms .Menultem 
Friend  WithEvents  MenuItemS  As  System. Windows . Forms .Menultem 
Friend  WithEvents  MenuItemS  As  System. Windows . Forms .Menultem 
Friend  WithEvents  Menultem7  As  System. Windows. Forms .Menultem 
Friend  WithEvents  MenuItemS  As  System. Windows . Forms .Menultem 

<System. Diagnostics. Debuggers tepThroughO >  Private  Sub  InitializeComponent ( ) 

Dim  resources  As  System. Resources .ResourceManager  -  New  System. Resources .  & 

ResourceManager (GetType (Variable_Names) ) 

Me .VariableNames  =  New  Cl .Win. ClFlexGrid . ClFlexGrid 

Me .btnOpenCompoundList  =  New  System. Windows . Forms .Button 

Me. btnSaveCompoundList  =  New  System. Windows . Forms .Button 

Me. btnNameVariablesOK  =  New  System. Windows . Forms . Button 

Me. Labell  =  New  System, Windows . Forms . Label 

Me. GroupBoxl  =  New  System. Windows . Forms .GroupBox 

Me. btnNameVariablesCancel  =  New  System. Windows , Forms , Button 

Me. ContextMenul  =  New  System, Windows , Forms .ContextMenu 

Me. Menulteml  =  New  System. Windows . Forms .Menultem 

Me.MenuItem2  -  New  System . Windows . Forms . Menultem 

Me. Menulteml  =  New  System. Windows . Forms .Menultem 

Me.MenuItem4  =  New  System. Windows . Forms .Menultem 

Me. MenuItemS  =  New  System .Windows . Forms . Menultem 

Me. MenuItemS  =  New  System. Windows . Forms .Menultem 

Me.MenuXtem7  =  New  System, Windows .Forms. Menultem 
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Me.MenuItem8  =  New  System . Windows . Forms . Menul tern 

CType (Me. VariableNames,  System. ComponentModel . ISupportlnitialize) .Beginlnit () 

Me . SuspendLayout ( ) 

i 

1 VariableNames 

t 

Me . VariableNames . AllowSorting  =  Cl .Win . ClFlexGrid . AllowSortingEnum . None 
Me .VariableNames . BackColor  =  System. Drawing . SysteraColors . Window 

Me. VariableNames . Columnlnfo  =  "1, 0, 0f  0, 0, 85 , Columns : 0 {width : 172 /AllowSorting : False* 
/Name:  "  11  Compound"  "  ;  Caption:  n  "Comp”  &  _ 

"ound" n ; TextAlign : Lef tCenter ; } "  &  Microsoft . VisualBasic . ChrW (9) 

Me . VariableNames . ForeColor  =  System. Drawing . SystemColors . WindowText 

Me . VariableNames . KeyAct ionTab  =  Cl .Win . ClFlexGrid . KeyActionEnum . MoveAcross 

Me .VariableNames . Location  =  New  System . Drawing . Point { 8 ,  8) 

Me .VariableNames .Name  =  "VariableNames" 

Me . VariableNames . Size  =  New  System. Drawing. Size (192 ,  384) 

Me .VariableNames .Styles  -  New  Cl .Win . ClFlexGrid. CellStyleCollection ( "Fixed 
{ BackColor : Control ; ForeColor : ControlText ; Border : Flat , 1 f ControlDark , Both ; } "  &  Microsoft 
.VisualBasic . ChrW ( 9)  &  "Hi"  &  _ 

"ghlight {BackColor : Highlight ; ForeColor : HighlightText ; } "  &  Microsoft . VisualBasic .  X 
ChrW (9)  &  "Search{BackColor : Highlight "  &  _ 

ForeColor : HighlightText ; }"  &  Microsoft. VisualBasic. ChrW (9)  &  "Frozen{BackColor : 
Beige;}"  &  Microsoft . VisualBasic . ChrW ( 9)  &  " EmptyArea{ BackColor :AppWorks"  & 

"pace ; Border : Flat , 1 , ControlDarkDark,  Both; } "  &  Microsoft. VisualBasic. ChrW(9)  &  ^ 

"GrandTotal {BackColor : Black; ForeColor : W"  &  _ 

"hite;}"  &  Microsoft. VisualBasic. ChrW (9)  &  "SubtotalO {BackColor : ControlDarkDark;  * 
ForeColor : White; } "  &  Microsoft . VisualBasic . ChrW (9 )  &  "Subtotall {BackColor"  & 

ControlDarkDark /ForeColor : White ;} "  &  Microsoft. VisualBasic. ChrW(9)  &  "Subtotal2 
{BackColor : ControlDarkDark; ForeColor"  &  _ 

" : White ; } "  Sc  Microsoft. VisualBasic. ChrW(9)  &  "Subtotal3 {BackColor : ControlDarkDark; 
ForeColor : White; } "  &  Microsoft . VisualBasic . ChrW (9)  &  "Subtotal4 {BackCol •'  & 

"or : ControlDarkDark; ForeColor : White ; } "  &  Microsoft. VisualBasic. ChrW (9)  &  X 

"Subtotals {BackColor : ControlDarkDark; ForeCol "  &  _ 

"or : White ;} "  &  Microsoft .VisualBasic . ChrW (9) ) 

Me . VariableNames . Tablndex  =  0 

i 

' btnOpenCompoundList 

i 

Me. btnOpenCompoundList .Location  =  New  System. Drawing. Point (240 ,  200) 

Me . btnOpenCompoundList .Name  =  "btnOpenCompoundList" 

Me . btnOpenCompoundList . Tablndex  =  1 
Me .btnOpenCompoundList . Text  =  "O&pen" 

i 

1 btnSaveCompoundList 

t 

Me. btnSaveCompoundList . Location  =  New  System. Drawing. Point (240,  256) 

Me . btnSaveCompoundList . Name  =  "btnSaveCompoundList" 

Me . btnSaveCompoundList .Tablndex  -  2 
Me . btnSaveCompoundList . Text  =  "&Save" 

i 

' btnNameVariablesOK 

i 

Me. btnNameVariablesOK. DialogResult  =  System . Windows . Forms . DialogResult . OK 
Me. btnNameVariablesOK. Location  =  New  System . Drawing . Point (24 0 ,  320) 

Me .btnNameVariablesOK. Name  =  "btnNameVariablesOK" 

Me . btnNameVariablesOK. Tablndex  =  3 
Me . btnNameVariablesOK. Text  =  "&OK" 

i 

1 Labell 

Me. Label 1 . Font  =  New  System . Drawing . Font ( "Tahoma" ,  9.75!,  System . Drawing . FontStyle 
.Regular,  System. Drawing. GraphicsUnit . Point ,  CType (0,  Byte)) 

Me . Labell . Location  =  New  System. Drawing. Point (228,  24) 

Me . Labell . Name  =  "Labell" 

Me. Labell .Size  =  New  System. Drawing. Size (100 ,  128) 

Me . Labell . Tablndex  =  4 

Me . Labell . Text  =  "Please  type  in  each  compound  name  you  wish  to  include  -  in  ^ 
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elution  order" 

t 

*  GroupBoxl 

i 

Me. GroupBoxl .Location  =  New  System. Drawing . Point (216 #  168) 

Me .  GroupBoxl .  Name  =  *  GroupBoxl  * 

Me. GroupBoxl. Size  =  New  System. Drawing. Size (128 ,  128) 

Me. GroupBoxl. Tab Index  =  5 

Me. GroupBoxl. Tabs top  =  False 

Me . GroupBoxl . Text  =  * Compound  Lists " 

a 

• btnNameVariablesCancel 

a 

Me. btnNameVariablesCancel .DialogResult  =  System. Windows . Forms .DialogResult . Cancel 
Me .btnNameVariablesCancel . Location  -  New  System. Drawing. Point (240,  368) 

Me . btnNameVariablesCancel . Name  =  "btnNameVariablesCancel " 

Me .btnNameVariablesCancel .Tablndex  -  6 
Me. btnNameVariablesCancel .Text  =  "^Cancel" 

» 

*  ContextMenul 
« 

Me. ContextMenul.MenuI terns .AddRange (New  System. Windows . Forms .Menultem ()  {Me. 
Menulteml,  Me .Menultem2 ,  Me .Menultem3 ,  Me .Menultem4 ,  Me .MenuItemS ,  Me .MenuItemS ,  Me. 
Menul tem7,  Me .MenuItemS } ) 

•Menulteml 

i 

Me . Menulteml . Index  =  0 
Me. Menulteml .Text  =  "Cu&t" 

* 

* Menul tem2 

t 

Me.MenuItem2 . Index  =  1 
Me .Menultem2 .Text  -  "&Copy« 

i 

* Menul tem3 
* 

Me .MenuItemS . Index  =  2 
Me .Menu It em3 .Text  -  "&Paste" 

* 

* Menul tem4 

i 

Me . Menul tem4 . Index  =  3 

Me .Menu It em4 .Text  -  "Paste  &Special" 

* 

'MenuItemS 

t 

Me .MenuItemS . Index  =  4 
Me. Menul temS. Text  *  **-•* 

i 

'MenuItemS 

Me .Menultem6 . Index  =  5 
Me  .MenuItemS  .  Text  =  "Select  &A11" 

t 

•Menultem? 

Me .Menu It em7 . Index  =  6 
Me. Menul tern?. Text  =  " - " 


•MenuItemS 

* 

Me .MenuItemS . Index  =  7 
Me .MenuItemS .Text  -  "^Format" 

i 

•Variable  Names 
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Me . AcceptButton  =  Me . btnNameVariablesOK 

Me . AutoScaleBaseSize  =  New  System. Drawing. Size ( 5 ,  13) 

Me . CancelButton  =  Me . btnNameVariablesCancel 

Me . ClientSize  =  New  System .Drawing . Size (352 ,  413) 

Me . ControlBox  =  False 

Me . Controls .Add (Me . btnNameVariablesCancel ) 

Me . Controls .Add (Me. Labell) 

Me . Controls .Add (Me . btnNameVariablesOK) 

Me  . Controls .Add (Me.btnSaveCompoundList) 

Me . Controls . Add (Me . btnOpenCompoundList ) 

Me . Controls .Add (Me . VariableNames) 

Me . Cont  rol s . Add ( Me . Gr oupBoxl ) 

Me. FormBorderStyle  -  System. Windows . Forms . FormBorderStyle . FixedDialog 
Me. Icon  =  CType (resources . GetObject { "$this . Icon" ) ,  System . Drawing . Icon) 

Me .MaximizeBox  =  False 
Me. Name  =  "Variable_Names" 

Me .StartPosition  =  System . Windows . Forms . FormStartPosition. CenterParent 
Me. Text  =  "Name  Variables" 

CType (Me .VariableNames ,  System . Component Model . I Support Initialize) . Endlnit ( ) 

Me. ResumeLayout (False) 

End  Sub 

#End  Region 

Private  Sub  Variable_Names_Load (ByVal  sender  As  System . Ob j ect ,  ByVal  e  As  System.  * 

EventArgs)  Handles  MyBase . Load 

End  Sub 

Public  Sub  ReturnVariableNames (ByVal  VariableNameList  As  Object) 

Dim  mVariableNamesRows  As  Integer 
mVariableNamesRows  -  VariableNames . Rows . Count 

End  Sub 


Private  Sub  btnOpenCompoundList_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System* 
.EventArgs)  Handles  btnOpenCompoundList . Click 
Dim  OpenDlg  As  New  OpenFileDialog 
With  OpenDlg 

.FileName  =  " " 

.Filter  =  "Variable  Name  Files  ( * . vnf ) | * . vnf | All  files  (*.*)|*.*H 

.Filterlndex  =  1 

. CheckFileExists  =  True 

If  . ShowDialog ( )  =  DialogResult . Cancel  Then  Return 

VariableNames . LoadGrid (OpenDlg . FileName ,  FileFormatEnum . TextComma ,  False) 

End  With 
End  Sub 

Private  Sub  btnSaveCompoundList_Click (ByVal  sender  As  System. Object ,  ByVal  e  As  System* 
.EventArgs)  Handles  btnSaveCompoundList . Click 
Dim  SaveAsDlg  As  New  SaveFileDialog 
With  SaveAsDlg 

.FileName  =  " " 

.Filter  =  "Variable  Name  Files  ( * . vnf ) | * . vnf | All  files  (*.*)]*.*" 

.Filterlndex  =  1 

If  . ShowDialog ( )  =  DialogResult . Cancel  Then  Return 

VariableNames . SaveGrid (SaveAsDlg. FileName,  FileFormatEnum. TextComma,  False) 

End  With 
End  Sub 


Private  Sub  VariableNames_Click (ByVal  sender  As  System . Ob j ect ,  ByVal  e  As  System.  * 

EventArgs)  Handles  VariableNames . Click 

End  Sub 
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Private  Sub  btnNameVariablesGK_Click (ByVal  sender  As  System .Object ,  ByVal  e  As  System. 
Event Args)  Handles  btnNameVariablesOK. Click 
End  Sub 

Private  Sub  VariableNames_KeyDown (ByVal  sender  As  Object,  ByVal  e  As  KeyEvent Args ) 
Handles  VariableNames .KeyDown 

Dim  copy  As  Boolean,  paste  As  Boolean,  cut  As  Boolean 

*  **  copy:  ctrl-C,  ctrl-X,  ctrl-ins 
If  e . Cont r o 1  Then 

If  e.KeyCode  =  Keys.C  Or  _ 
e.KeyCode  =  Keys. Insert  Then 
copy  =  True 
End  If 

If  e.KeyCode  -  Keys.X  Then 
cut  =  True 
End  If 
End  If 

*  **  paste:  ctrl-V,  shift-ins 

If  {e. Control  =  True  And  e.KeyCode  =  Keys.V)  Or  _ 

(e. Shift  And  e.KeyCode  =  Keys. Insert)  Then 
paste  -  True 
End  If 

*  **  copy  selection  to  clipboard 
If  copy  Then 

Clipboard. SetDataObject (VariableNames . Clip) 

End  If 

*  **  cut  selection  from  clipboard 
If  cut  Then 

Clipboard. SetDataObject (VariableNames . Clip) 

Dim  selected  As  Cl.Win.CIFlexGrid.CellRange 
selected  =  VariableNames .Selection 
selected. Data  -  Nothing 
End  If 

*  **  paste  from  clipboard 
If  paste  Then 

*  see  of  there's  text  in  the  clipboard 

Dim  data  As  IDataObject  =  Clipboard . GetDataObject () 

If  data. GetDataPresent (DataFormats .Text)  Then 
*  there  is,  so  paste  it 

VariableNames .Select (VariableNames .Row,  VariableNames . Col ,  VariableNames. 
Rows. Count  -  1,  VariableNames. Cols .Count  -  1,  False) 

VariableNames. Cl ip  =  CType (data . GetDat a (DataFormats .Text ) ,  String) 
VariableNames . Select (VariableNames .Row,  VariableNames . Col) 

End  If 
End  If 

•If  the  user  presses  the  delete  key  in  a  cell  or  in  a  range  of  cells,  delete  them 
If  e.KeyCode  «  Keys. Delete  Then 

Dim  selected  As  Cl.Win.CIFlexGrid.CellRange 
selected  =  VariableNames , Selection 
selected. Data  -  Nothing 
End  If 
End  Sub 


End  Class 
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